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DES PROGRAMMES POUR VOTRE 

ORDINATEUR : APPLE ll et ll e . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20. HEWLETT PACKARD HP 41 et 
HP 75. MULTITECH MP-FII. ORIC 1. SHARP PC 1211, PC 1251, 
PC 1500, MZ 80. SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 
80. TEXAS TI-99/4A. THOMSON T07. 

DEUX SUPER CONCOURS : 100001™** 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 
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Le mors est boucle Presquun 
anniversaife. vous etes plus 
nombreux chaque semaine a 
nous (aire conhance. a suivre 
notre lormule Encore une fois. 
pour les petits dernier s qui rejoi- 
■ ■ '■:- clan des programmers 
tanaliques. nous rappelons ce 
qui fart I'origmatite d Hebdogioel 
Hebdornadaire d abord. pour ne 
pas que vous attendiez un mois 
vot/e programme Au moms un 
programme par ordmaieur. cha- 
que semaine 

Pasde ■". les, pasde 

conseits pour acheter un ordma- 
teur. pas de cours de basic, vous 
irouverezd'excellentslivrr;-; trai- 
lant de ces sujels 
Nous, ce qui nous interesse. 
cesi le SOFT les iogicieis. les 
programmes les nouveaux Ian' 
gages 

Vous avez tous 'ail un pro 
gramme plus ou moms long qui 
puisseinteresser les ulilisateurs 
ri 1 j meme ordinateuf que le 



voire, un programme de jeu. un 
programme qui facrlite la pro- 
grammalion ou meme une 
simple asiuce qui augmenle les 
performances de votre machine 
Ce programme. HEBDOGICIEL 
va le publier. vous allez devenir 
les journalisles de voire journal 
Noire objectif esl de (aire circu- 
lar les programmes Irancais el 
de excusezdupeu.fairecirculer 
La Pensee inlormalive Fran- 
caise" 

Nous serons seulement les 
moteurs de ce mouvement en 
organisant les deux concours 
permanents d HEBDOGICIEL el 
en remuneranl J000 francs la 
page impnmee pour les pro- 
grammes, les asluces et le 
rectaclionnel envoves par les 
lecleurs Les programmes regus 
semnt testes par nos specialis- 
,1 votre programme nest 
13 tout a Tail au poml. ils vous 
indiqueront comment, le modi 

Sire public 



C'est au tour de voire HP 75 d'ap- 
prendre a manipuler les chaines 
de caracteres coupez les 
adjectifs tnturez les nomscom- 
muns maiaxez les verbes el 
decomposez les syllabes avec 
Bernard RAGOT Quand vous 
aurez choisi la voilure ideale 
avec voire PC 1 251 et J-F CHA- 
PIN.veriliezl'elaldevosbiofvllv 
mes avec une FX 702-P. ramas- 
sez quelques eponges avec un 
VIC 20 et lancez-vous dans les 
labvnnlhes de Marc LE HEN 
(ORIC I) et de Gerard ROUGE- 
V1N (UP FID. attention a ce der- 
nier, en plus il esl vivant' Les 
Demons el les Sorciers de Phi- 
lippe Pauhn (TRS 80) vous pous- 
seront vers ZORG el TERRAPO- 
LIS (COMMODORE 64) Puis 
quelques lirs croises sur Tl 99/ 
4 A (Pierre VIOLENT) avant d'al- 
laquer les casse-lete : TOUR de 
HANOI (SPECTRUM). AWARI 
IT071.CAR80X de Y-L RICHE- 
Suite page 9 



Qualneme semaine de par u lion, 
les choses se meltent petit a 
petit en place De|a. nosspecta 
l isles n'onl presquo plus a mter- 
venir pour creer des program- 
mes Vous envovez reguhere- 
ment vos realisations et tons les 
ordmateurs sont pourvus par 
vossoms Seul le Specirumadu 
mal a decoller car encore irop 
recent, les Sharpentiers ne se 
cassent pas trop la tete et. saut 
envois massifs et rapides. nous 
allons laisser le MP Fll sur la 
louche pour un mots Par contre. 
des la semaine prochaine, quel- 
ques "pelits nouveaux" vont 
nous rejoindre, probablemenl 
GOUPIL et peul-elre X 07 de 
CANON La semaine prochaine 
egafement le premier vole pour 
le premier concours mensuel el 
le premier gagnant de 10000 
francs, un evenerrtenl ! 

Les programmes publres qua 
vous entrc/ dans voire ordii 3 



teut vous ne les amehorez 
jamais? Et vous n'adaptez pas 
des programmes d'unaulreordi- 

nateur pour qui) puisse lourner 
sur le votre? Om : Alon 
ce que vous attendee pour en 
fairs profiler vos amis lecleurs 
d'HEBDOGICIEL Amelioration 
■ ;:>!. itionsonldcuy.fi' 

mamelles de I'irtformotique tie 
troisiem.' c esl la creation el on 

ginalo ') 
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EXTENSIONS BASIC 




Ce programme se compose en fait de six routines 
independantes qui permettent detendre les possibili- 
ty detraitementde chafnesde caracteres de votre HP 
75 C. Six fonctions pourront etre ainsi simulees par 
votre ordinateur prefere : LEFT$, RIGHTS, MID$, 
STRINGS. LTRIMS et RTRIM$. 

I - DESCRIPTION 

LEFT! une expression 8ASIC de la forme RS - LEFTS (XS.N) 

renvoie dans la variable alpha RS les N premiers carac- 
teres de XS 

exemple : RS - LEFTS rHEBDOG!CIEL",5> renvoie 

"HEBDO" dans RS 
RIGHTS une expression BASIC de la forme RS - RIGHTS {XS,N) 

renvoie dans la variable alpha RS les N derniers caracte- 

res de XS 

exemple RS - RIGHTS rHEBDOGICIEL".6) renvoie 

"GICIEL'dansRS 
MIDS : une expression BASIC de la forme RS - MIDS (XS.P.N) 

renvoie dans ia variable alpha RS les N caracteres pris a 

partir de la position P de XS 

exemple : RS - MIDS ("HEBDOGICtEL'^.B) renvoie 

"DOGICI" dans RS 
STRINGS : une expression BASIC de la forme RS - STRINGS (XS.N) 

renvoie dans la variable alpha RS N fois I'ensembie des 

caracteres de XS 

exemple ; RS - STRINGS ("TO".2) renvoie "TOTO" dans 

RS 
LTRIMS une expression BASIC de la forme RS- LTRIMS (XS) ren- 
voie dans la variable alpha RS une chaine egale a XS 

amputee de tous les blancs de tele 

exemple ; RS - LTRIMS (V. ABC) renvoie "ABC dans RS 



RTRIMS une expression BASIC de la forme RS - RTRIMS (XS) ren- 
voie dans !a variable alpha RS une chaine egale a XS 
amputee de tons les blancs de queue 
exemple : RS - RTRIMS ("XYZ... ") renvoie "XYZ"dans RS 

II - MISE EN CEUVRE 

En premier lieu, il faut charger les programmes 1 a 6 

correspondant aux six routines 

EDIT "LEFT" 

chargement de la routine LEFTS 



HP 75 



EOIT "RTRIM" 

chargement de la routine RTRIMS 

Vous disposez maintenant de six fonctions supple- 
mentaires que vous pouvez utiliser dans tous vos pro- 
grammes. N'oubliez pas de proceder en tete de pro- 
gramme aux assignations des deux fichiers "ENTREE" 
et "SORTIE". 

ASSIGN* 9999 TO "ENTREE" 

ASSIGN* 9998 TO " SORTIE " 
Les deux fichiers vont vous permettre de transmettre 
les parametres entre vos programmes et les routines. 
On parlera de parametres d'entree pour les valeurs 
transmises du programme principal aux routines, et de 
parametres de sortie pour les resultats transmis en 
retour par les routines. 

Au niveau de sous-programmes, les parametres sont 
dits "FORMELS"; vous ne devez en aucun cas les 
modifier. Ces parametres sont les variables locales 



PROGRAMME 1 

m» rem ««•» 

m\ an left* 

9982 REM ..... 

9963 an 

9918 READ I 9999.1 

N 

9611 R*=" 

9926 IF XJ=" THEN 9856 

9638 IF H<1 THEN 9858 

9631 IF N>LEN(X*> THEN N 
=LEN«*> 

9632 H=INT(N) 



m 



9848 R*=X*[1,N) 

9858 PRINT I 9998,1 i R* 

9868 END 

PROGRAMME 2 

9168 REN ««»«« 

9181 REM RIGHT* 

9162 REM »«»»•» 

9183 REN 

9118 REM I 9999,1 ; X*, 

N 

9111 M=" 

9128 IF X*=" THEN 9158 



9138 IF NO THEN 9158 

9131 IF N>LEN(X*> THEN N 
=LEN(X«) 

9132 N=INT(N) 

9148 R«=X*[LEN(X*)-H+I! 
9158 PRINT I 9998,1 i R* 
9168 END 

PROGRANHE 3 



9286 REM ««». 
9261 REM KID* 

9282 REM »»«« 

9283 REM 



9218 READ I 9999,1 ; X*, 

P,H 

9211 Rt=" 

9228 IF X*=" THEH 9268 

9238 IF P<I THEN 9268 

9231 IF P>LEN(X*> THEH 9 
266 

9232 P=INKP) 

9248 IF H<1 THEN 9268 

9241 IF N>LEN(X*)-P THEN 
N=LEN(X*>-P 

9242 N=INT(H) 

9258 R*=X*[P,P*H-i) 
9268 PRINT I 9998,1 ; R* 
9278 END 



FONCTIONS 
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AA 



Materiel necessaire : HP 41 en version de base. 

Ce programme est un ensemble de trois sous-pro- 
grammes d'aide a I'etude des fonctions reelles ; 

- Calcul des valeurs d'une fonction 

- Calcul de la valeur de la derivee d*une fonction en un 
point 

- Calcul des limites a I'mfini d'une fonction 

1 - Calcul des valeurs d'une fonction 

Ce programme est une boucle. La fonction ISG ne peut 
etre utilisee car le pas peut etre tout nombre reel. Voici 
le mode operatoire : 

- Faire XEQ CALC 

- A la question NOM ?, repondre le nom du label de la 
fonction 

- A la question MIN ?. introduce la valeur de depart 

- A la question MAX ?, introduire la valeur d'arrivee 

- A la question PAS?, introduire la valeur de I'incre- 
ment. 

La HP 41 affiche alors la premiere valeur. Appuyer sur 
R/S pour continuer. Si la HP 41 affiche INT, c'est que la 
valeur quelle vient de calculer provoque une erreur de 
calcul. 

Pour ce programme comme pour les suivants, la fonc- 
tion doit etre introduite a part avec un label alpnanu- 
merique, prendre sa valeur de depart dans le registre 
et mettre la valeur finale dans X. 

2 - Calcul de la valeur de la derivee d'une fonction en u 
point 

Ce programme applique la definition du noml 
derive. Voici son mode operatoire : 



- Faire XEQ DER 

- A la question NOM ?, repondre le nom du label de la 
fonction 

- A la question X ?, introduire la valeur pour laquelle on 
veut calculer le nombre derive. 

Apres un court moment, la HP 41 affiche la valeur de la 
derivee en X (X etant le nombre precedemment intro- 
duit). 

3 - Calcul des limites a I'infini d'une fonction 
Ce programme calcule les valeurs que prend la fonc- 
tion en 1 E6 et — 1 E6. et en "deduit" les limites a I'infini 
d'une fonction. 
Voici le mode operatoire de ce sous-programme. 

- Faire XEQ LIM 

- Apres un court moment apparait la valeur de la limite 
de la fonction en I'infini positif (+ INF), puis apres une 
pause, en I'infini negatif (—INF). 

EXEMPLE : Soit la fonction labellee FCT y- x ! intro- 
duite aux lignes 109 a 111. 
Pour chacun des 3 sous-programmes, il 
suffit de repondre par FCT a la question 
NOM? 

Vous pouvez ensuite etudier la fonction 
selon vos desirs ou changer de fonction 
en introduisant votre nouvelle fonction a la 
>lace de x 2 . 

M.VETILLARD 




81.LBI -CRLC- 

82 FIX 2 

83 XEO II 

84 -iiih?- 

85 PROMPT 

86 STO 81 

87 -HflX'- 

88 PROMPT 

89 STO 82 
18 -PAS'- 

11 PROMPT 

12 STO 63 
13»LBL 81 

14 RCL 81 

15 SF 25 

16 XE8 IND 88 



17 V 

18 APCL 91 

19 -F=" 

28 ARCL X 

21 FS? 25 

22 CTO 88 

23 CLA 

24 APCL 81 

25 -F INT- 
26»LBL 88 
27 AVIEH 
23 STOP 

29 PCI. 83 
38 ST. 81 

31 RCL 82 

32 RCL 81 



33 x<=r> 

34 CTO 81 

35 RTN 

36H8L -HER" 
37 FIX 2 

33 XEO II 
39 -X?- 
48 PROMPT 

41 STO 81 

42 1 E-6 

43 * 

44 XEO IND 88 

45 STO 82 

46 RCL 81 

47 XE9 IND 88 

48 ST- 82 



49 1 E-6 
59 ST/ 92 

51 -d- 

52 ORCL 91 

53 -F=- 

54 ORCL 82 

55 PVIEU 

56 RTN 
57.LBL •Ult- 
ra FIX 2 

59 XEO I) 
69 1 E6 
61 SF 24 
82 XEO IND 81 

63 1 E3 

64 X<=Y? 



65 CTO 82 

66 CHS 

67 X>Y? 

68 ORCL 83 

69 -UINF=- 
79 ORCL Y 
71 CTO 84 
72.LBL 82 

73 "LtIHF=HHF- 

74 CTO 94 
75.L8L 83 

76 -L*IHF=-IHF- 
77.LBL 94 

78 RVIEU 

79 PSE 
88 PSE 



81 -1 E6 

82 SF 24 

33 XEO IHD 89 

84 1 E3 

85 X<=Y' 

86 CTO 85 

87 CHS 

88 X>" 

89 CTO 86 
98 -L-IHF=" 

91 ARCl Y 

92 BVTEH 

93 RTN 
94.LBL 95 

95 -L-IHF=»1NF' 
98 AVI EH 
2 



97 RTN 

98.L8L 86 

99 -L-INF=-INF- 
189 RVIEU 
181 RTN 
I92«LBL A 

193 "NOM?- 

194 RON 

195 PROMPT 

196 OOFF 

197 OSTO 98 
188 RTN 
I89.L8L -FCT- 
118 Xt2 

111 RTN 

112 .END. _ 



aux routines qui n'interferent jamais avec celles du 
programme principal meme en cas de noms identi- 
ques. 

Au niveau du programme principal, les parametres 
sont dits "EFFECTIFS"; vous pouvez les appeler 
comme bon vous semble. Seul I'ordre des valeurs 
transmises est important ainsi que le type (Alpha, Inte- 
ger, Short, ou Real). 

Le programme intitule CHAlNE ALPHANUM vous est 
donne a titre d'exemple d'utilisation de ces routines. 
D'une maniere generate, cela se resume comme suit : 

I Assignation des fichiers d'entrees et de sortie sur les canaux 
9999 et 9998 ligne 1 

3 Ecriture des parametres d'entree sous forme de variables ou de 
litteraux sur le canal 9999 ligne 1 

"' Appel de la routine 

i Lecture du parametre de sortie par affectation a une variable 
sur le canal 9998 ligne 1 

& Retour en 2 a chaque nouvelle utilisation, 

Vous vous apercevrez tres vite que tout ceci est beau- 
coup plus facile a utiliser qua expliquer! Le principe 
etant simple, qu'attendez-vous pour enrichir vous 
meme votre BASIC et envoyer vos routines a HEBDO- 
GICIEL? 

Bernard G. RAGOT 



1813 imiT 2 

1826 ASSIGN * 999S TO *E 

NTREE" 

1638 ASSIGN I 9998 TO "S 

ORTIE- 

1189 REM same 

1118 IHPUT -Chaine entre 

e ? "iC* 

1111 IF LENCC1X18 THEN 
DISP -Cette chaine est t 
top courte ...- 8 KBIT 2 

6 GOTO 1116 

1112 IF LEN(Ct)>15 THEN 
DISP -Cette chaine est I 
roc lonme ..." 6 WRIT 2 

6 GOTO 1118 
1128 C*=UPRCt(Ct) 

1121 T*=C* 

1122 COSUB 266B 

1138 DISP "TraileMent de 
C*="i 

1131 DISP Si 

1148 IF KEY*=" THEN 114 
8 

1288 REM left! 
1218 DISP -Leltfl-. 

1211 DISP -Ct-i 

1212 DISP -.7)=-; 
1228 PRINT I 999' 
,7 

1221 CALL -LEFT- 

1222 READ I 9993, 1 ; Lt 
1238 L*=UPRC)(Li) 

1231 T«=Lt 

1232 GuSIJP 2888 
1246 DISP St 

1258 IF KEY**" THEN 125 



9368 REN «<•««« 

9381 REN STRING* 

9382 REN «»*«»»» 

9383 REN 

9318 READ I 9999,1 ; Xt, 

H 

9311 RJ=" 

9328 IF Xt=" THEN 9358 

9338 IF H<1 THEN 9358 

9331 H=INT(N) 

9348 FOR J=l TO N 

9341 R*=Rt>.X* 

9342 NEXT J 

9358 PRINT I 9998, I ; R* 
9366 END 

PROGRONNE 5 

9488 REN ..«•«» 

94B1 REN LTRIM) 

9482 REN >«««»• 

9463 REM 

9418 READ » 9999,1 i Xt 

9411 P*=" 

9428 IF Xt=-- THEN 9456 

9438 Ri=Xt 

9448 FOR J=l TO LEN(Xt) 

9441 IF Xt[J, .)]<>■ ■ THE 
H 9458 

9442 Ri=X«[,i.l] 

9443 NEXT J 

9458 PRINT I 9998,1 i M 
9469 EHD 



PROGRANME 6 

9588 REN ...»». 

9581 REM RTRIM* 

9582 REM «*»»•« 

9583 REN 

9518 READ I 9999,1 i X* 

9511 RJ=" 

9528 IF X*="- THEN 9558 

9538 Rl=Xt 

9548 FOR J=LEH(X«) TO 1 

STEP -1 

9541 IF X*[J,JK>" 
N 9558 

9542 R*=X*[|.J-I1 

9543 HEXT J 
9559 PRIHT I 9998,1 
9569 EHD 
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1988 REN *»*.»»»***»•»*' 

1881 REN CHAINE ALPHANUH 

1882 REM ••«•**.•**«••»» 

1983 REM 

1918 DISP • « TRAITEMENT 



1911 DISP 
1812 DISP 
E • " 



'ALPHANUNERIBU 9 



1388 REM ri*l* 
1318 DISP ■RishliC; 

1311 DISP -«-, 

1312 DISP -,6)=-; 

1328 PRINT » 9999,1 , Ci 
,6 

1321 CALL -RIGHT- 

1322 READ I 9998.1 i Rl 
1339 R*=IJPRC*(Rt) 

1331 T*=R* 

1332 GOSOB 2698 
1348 DISP S* 

1358 IF KEY**" THEN 135 

6 

I486 REM nidi 

1418 DISP -Mid*C, 

1411 DISP •«•; 

1412 DISP -.4-1 

1413 DISP ".5)=-i 

1428 PRIHT I 9999,1 ; Ct 
,4,5 

1421 CALL -Mil- 

1422 READ t 9998,1 ; N* 
1436 M«=UPRC*<H») 

1431 T*=Nt 

1432 COSUB 2888 
1446 DISP S* 

1459 IF KEY*=-- THEN 145 

Suite 
1569 REM strini* page 3 



DEMONS ET SORCIERS 



Ce jeu a ete concu pour TRS-80 modele 1 ou III. La cas- 
sette est enregistree a la vitesse du modele I soit 500 
bauds. Le programme tourne sur un modele 16 K 
BUT DU JEU. 

II s'agit avant tout d'un jeu de role, c'est-a-dire qu'il faut 
explorer un univers hostile a la recherche d'un tresor 
bien garde et ressortir vivant apres avoir affronte main- 
tes epreuves. Dans notre cas le champ d'action est un 
labyrinthe de trois etages, chaque etage comportant 
60 cases, dans lequel il faudra decouvrir ['emplace- 
ment d'un diamant magique et, evidemment, la sortie. 
Pour reussir cela. vous disposerez des indications 
fournies par le programme : 

- Direction vers laquelle vous vous dingez. 

- Coordonnees de la case sur iaqueile vous etes. 

- Vue en trois dimensions des couloirs qui s'offrent a vous en fonc- 
tion de chacun de vos mouvements 

- Distance qui vous separe du tresor a vol dbiseau (si vous etes au 
meme etage) 

MODE D'EMPLOI DU PROGRAMME 
En debut de partie. la machine vous demande le 
nombre de joueurs ainsi que leurs noms; cela va lui 
permettre d'attribuer a chacun des points de vie, de 
chance, de force, de resistance. La partie va alors 
demarrer par un bref rappel des commandes utilisa- 
bles. Avant de les detainer, il faut bien avoir a I'esprit 
plusieurs choses : 

- En debut de Jeu, les joueurs se trouvent toujours au premier 
etage. 

- La sortie du labyrinthe est. elle. au troisieme. 

- Les etages communiquent entre eux par des trappes visibles 
sur lecran 

- Le chemin qui mene a la sortie est unique et vous pouvez fort 
bien arriver au troisieme et tomber dans un cu!-de-sac. 

- II est par consequent indispensable de bien reperer avec papier, 
crayon et gomme les galeries explorees et den tracer les cartes. 

- Chaque etage est forme de 60 cases (6 x 10). 



Arrives a ce stade, nous pouvons etudier les differen- 
tes commandes offertes aux joueurs : 



COMMANDES DE DEPLACEMENT 


COMMANDES DE 
SIMPLE VISION 


8 • deplacement d'une case vers Nord 

2 • deplacement dune case vers Sud 

4 • deplacement d'une case vers Ouest 
6 • deplacement d'une case vers Est 

9 - montee a letage superieur 

3 • descente a I'etage inferieur 


N - regard vers le Nord 
S - regard vers le Sud 
O - regard vers I'Ouest 
£ - regard vers le Est 



Deux autres commandes sont egalement presentes : 
M : deplace la troupe sur une autre case du meme etage de facon 

totalement aleatoire. 
5 : donne un compte-rendu des differentes caracteristiques de 
chaque joueur, ainsi que son niveau de points de vie 
LES COMBATS : 

Vous pouvez a tout moment etre attaque par un 
monstre plus ou moins dangereux; la seule solution 
est alors le combat qui est entierement organise par 
I'ordinateur selon les regies des jeux de role. Chaque 
joueur tire des des dont le nombre de faces est fonc- 
tion de sa force et de sa chance ; le total apparait alors 
en face deson nom.Si le coup est superieur a la resis- 
tance du monstre, celui-ci est toucheet son total dimi- 
nue. A son tour, il porte un coup selon les memes pre- 
cipes. Le combat s'arrete a la mort d'un des adversai- 

LES FONTAINES DE JOUVENCE. 

II peut quand meme vous arriver des choses plus heu- 

reuses telles que les rencontres de fontaines de Jou- 

vence qui vont regenerer une partie des forces per- 

dues en combats. 

DEROULEMENT D'UNE PARTIE. 

A chacune de vos commandes, I'ordinateur vous resti- 

tue votre nouvel emplacement, la vue que vous en avez 




en fonction de la direction vers laqueltese tourne votre 
regard, et eventueflement la distance qui vous separe 
du tresor. L'information la plus importante est evidem- 
ment cette vue en trois dimensions qui s'affiche apres 
chaque mouvement, et qui vous permet de reperer la 
configuration des lieux et les directions possibles 
C'est avant tout d elle qu'il faudra tirer le maximum de 
renseignements pour continuer la partie. 
II est a noter que le labyrinthe est toujours le meme ce 
qui permet de toujours progresser vers la sortie cha- 
que fois que Ton recommence une nouvelle partie. Le 
chemin qui mene a la sortie est tres complexe car il 
repasse plusieurs fois par le meme etage dans des 
secteurs differents ; cela oblige le joueur a bien noter 
chaque parcours effectue sans quoi il risque de tour- 
ner eternellement en rond. 

II ne faut done pas perdre de vue qu'il s'agit avant tout 
d'un jeu de role et non pas d'un jeu video bien que les 
graphismes pourraient faire supposer le contraire. 

BONNE CHANCE!! 

Philippe PAULIN 
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SI SXUBtem EDNKU GOSUWI EOJUjM Oee 90SGB181M 
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69 FOP->;TOSJ'PRIsn-NW W JQUEIR •, J; ■ I»*VTOKJ).MC J>-* J>^«K ISVK J>^MX[3> 
►4-XTJ 
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115 *»M(EY«'IFfl»»"T»eNG0SU8I3»'«'T0i:S 
128 :FW3-T>OCfl-3'0R-4'fr/-l.C!rr02fle 
125 IF»-'2-Tie«W« M-3 PV2'CCT0285 
;38 I.-S»-*«'T>«Wfl-2-0R-l'RV*3'COTO219 

1*B i«w«-T>€«ft«3'SfM'SV-M3T(S58 
MS "»»--S-T'-eM>M CS5.3HV.2.Q3T0239 

138 :p»»--o-T>€?ftft-2M?Tnv3 'xnozx 
133 IFf«-*E-ri€M3>i »-2 3V-4 5070238 
169 :F»*"n-TV€WIf>«3>:^THEM119El.SE220 
1S3 :fw!-T)€NCLS KSU31«» W?^lie8 50T02» 
179 IFP*-*9*T>4D<223 
173 IF**** 3*T)4EM238 

188 -OIDl'l 

289 IFm?t<C«<n'.F K r.P»:).l.l>"l"T>€MI!eeLsEPV-PY-r«T0230 

233 *Fn;C*C*ET.*^,PX).2,l>-*PT>»Me*a.SSF-f-=-T'-l G0T02S8 

219 ;Fn;»!C»:ET,PY.F>:),3,i>--i-T>€wiieeLSEw*PX-i-ajT023« 
213 IFnl»(C»:ET.PY.PX),«,l>-*I-I>CH110aSE??;*PX*lCOT02M 
229 l!X3»9TrO^»*»«19J'PV-!»(S)'HOM«3>-»O!10>-ODIO2» 
223 Ir«iOKC«ET.?r.PX>,3,l>»*8'TfeNU8EUeET«€T+rGOTeC5e 
238 rFHIWC«!ET.PY,PX),6.1J-*9*THEHIiaeLSeET»ET-l-anOZ3e 
249 I-I-WFI>«TrEN!19 
241 rjWW3JTC242,243,244,2*3 
£42 Z1-21-1OTTC232 

243 2I*ZI*I'C0TC232 

244 22-22-1 ■Krr02S2 
243 22-22*1 01*0232 

238 21-PY'22^X'Z>ET'CL3'KISU81239 

252 LKl>^(I.l)'W2)-TtI,l)'lX3>«I-2) W4>-Ya-2)'C0SUBI88e 

234 uti>oici.3)uc2>T!i,3)ix3>-«i-4> W4X«i.4) cosuBieee 

233 tFMDKWZ3,ZI,Z2),3,l>'3'T149i262 

256 UtlXWr.l)UC2)-Oal-Z>W3)-CWI.3)lX4>-0«I,4> C0SUB1898 

237 U(l>CXU.3)' l J!2>-O«I,S)lX3>-OKI,7)0<4)-CK(I,3) C0SUB1889 

238 W1)-C«I.I)'IK2>«=WI-2)'IX3M3(<I.;) iy.4>-O«[,6>.C0SUBiee9 
ZS9 uciXX(I,33-ue2XXCI.4>'IX3>CWI.7} (K4)-a«I.9)!»SUB1889 
269 W1W^I.3)«2>-CWI,19)'W3>-CJ«I.5)'«4;-CWI.6)'50SIJB1889 

2si i/i>o«i.t!)-t>tz}-o«i.ie>>uo}o«i,7)<<x4W!tr.8>'CosuBiee8 

252 IFmW<G»<Z3.ri.Z2J.5,l>-"B"rHEK27e 

263 Otl>«WtI.l)U(2>*W(t.2)'W3)-0M;l.3)'IX4)-OWt,4)'COSUBI9ee 

264 UlWWC1.3>'U(2>-(>«:.6)'lX3)-01«I.?)>lX4>0Ki.8)'OT3iJBia(» 

263 ^xlMw^l).w^>*»tI-^^w^)-o«I.3) l Ut4)-owI.«)■cosuBlefle 

266 IX1>CM1.3)-'J<2>^WI,4)>0(3)-0WI.7) IX4>0Wt.e)'C0SUB1998 

267 tXl)-0WI,l) IX2>*0>;(I.21'0(3)*0MI.9> U4>-0>;(I,iB)'COSU8ieee 

268 (X 1 >4XC 1. 3?'i.KZ>*0XCE. 4)< (X3WKCI.lt) 1X4 )-DX! 1.12) ■O39J81980 
278 IFntD«!*:Z3,Z1.22>.Cfl.l)--aT»€)'288 

273 Fc*>|rra■lxl)^I,J)'^x^)-Yc^J) l ^x3>-^I,J>'(X4>-flY(I,J)■a)suBleee■^€)fTJ• 

COT0283 

288 F0W1ID2 Utl>*»cr, J)(X2>r(i, J)(X3)-BK! !,j)'UC4)-fl¥f I, J)>C0SUBI889 «KTJ 

283 IFmM(W(Z3.ZI.22>.WM)--8'THQi235 

298 F0PJ-3TI)4'(XI)-«I,J) 'X2)-« 1. J)'J(3WK( I. J)'(X4)-(mi.J>'CI}SU8te88'NEXTJ' 

-.-,"':'■■! 

293 F0PJ-3TO4 l/D-WI.J) IX2)-Y(i,J).'/3>8XCt.J>'(X4)-e¥{I.J)'C0SyB18e9'l€XTJ 

388 [FMI(>»C!;»CZ3.2t.22).RV.l)--8"t>OC*8 

383 WD-J'.d.l) (X2)-¥(I,t)(X3)-WI,3) C/4>-Y(I,3)'C03U31988 

318 LK J >-« 1 . 2 > '(X2)>Y(I,2) 'tX3)*WI,4> i/4>y( [.4)-C0SUBI888 

313 FRlKTe34.-DieEaiOM-*i'»IMTil83-!)Ifl*W). P«IMTe43,STffIHC»Cie.43)j 

31S PPINTMie.'CflSE.... >') -P»iv:a37S,'LI. ■jPVi'PRIHT*448.'Ca.'".w;i-»IMTS582.' 

ETK6-**ETi'P«!WT»S3.ST»IW*l8.45>( 

317 OfTT«)n»28. 3Z! 

328 IFET<--Exn€H323ELSE322 

321 1FET03HCK325 

322 f8^8S<TX-r i >:)lFT9-9rrOITe-l 

323 Tl«Pe3<rr-P¥)'[FTI-8T>€Hri-l 

324 T2-T8C2'T3-IlC2 i r«SQ«T2«I3) PPlhTfetK.T*; PPIMT»698,Ii 
323 AT'flWKieaMFRTIfLriCHJW 

338 >8I'4-S»(ll)'F-»:i)PRlNTlB90.*.l UH MXSTBE VOX ftTTflOJE VW» DEVEZ 03 
reWTTPE ««*i 

139 BD9JB11M 

3*Z CU MSU3l4e8'C0SU91588'C03'flne8 C0TD238 -(COrBRT) 

T& lF(TK*PM»<DPyTY)»<€T-27}«>*»3J81780 CKJPllM MT0238 'CT9£S0») 

355 imrOHHGC I WT0239 '(JQUVDCE) 

3« lFCET-3f»Wl&»<»{3.PV,PX),3,l)--r)T>€H]609 

488 UTTMie 

388 CLS'C0SU81488'PRINTl»4.-» IL * BSSIE «JCUH 9JBVIVTNT n FOIWTS159. -r.-tlT L 

fl FIM Ifi-WtHTese.-'i'OO 

418 ZTO-32236'P0H16S26.9PCKE16327,t26 (X8>1 

628 FOR2II-32236T03254J 

^39 PE»2I!:PWEZI«.ZI«'Z»K-ZW*1 

648 i€xtii i -tenm 

638 0ATA283. 12?. 18.229.233.223. 253. 78, 2. 233, 79, 4, 253,06,6 
668 MTS253.94,8.237,67.2?, 127,203. 13, 127,221,33,24, 122, 128 
678 WT«38. 1.185, 36. 2. 38. 233. 121. 187, 46. 1.36.2. 46,233.34. 24 
&38 C*rf!127, 120, 146,2*2,33, 126.237,68, 183.121.147,242,63, 126 
SJ8 MTR237.68, 111,34.26. 127, 124, 189, 36. 32, 203. 47. 38,38, 127 
'M MTR37. 248,38,23. 127,221, 134,3,38,2?, 127,39,38.127,133 
TIB WTPC8-39, 127.221, 198,3,56, 13,221, 138, 3.38.38, 127,33.28 
728 M>Tfil27.22l, 134,8,38.28- 127.237,73.28, 127,283. 13. 127,24 
738 WTR289. 123,283.47,38.38. 127.43.248,38.24, 127.J21, 134 
748 Wrfi4,38.28, 127,39.38. 127, 132.38.38, 127.221,190,2.36. 15 
738 MTR22I, 138.2.38.38. 127.38.29. 127.221, 134, 1,58,29,127 
T68 KTR237, 73. 29. 127,283, 13, 127.24.289.62, 1,24.2.62.2,22? 
778 WTR213. 197.243. 197. 121, 183,31, 71,128,128, 128. 183,48,3 
738 WTTO6, 3.3.24.243, 90.193. 128. 163. 31, 93. 106, 38,0,41, 41 
799 WtMl. 41. 41. 41. 121, 146, 146, 146. 133. 128.147,147.71,22 
888 0flTR8,23, 17.8.68,23.1:6. 183.258,241. 126.62.128. 119. 173 



) >«xtj 




918 WTS194, 62, 1,43. 4. 133. 1. 32. 252. 71. 2*1, 254.;, 33,4, -2S, 176 

928 HnR24,3.123,47,:?S.:l?.-.?3,223,225.2S1.233,12S,8.:e3 

938 MTK282.190,i26.283.i7S,I?$,2i>! 8.8.8 8.8,0.8 

938 "':-:T0S'F0fi>lTO4-REreK(I,J>,¥(I,J),B«I,J),flvci.J>,r-..: 

H3CTI 

?:; r;f:.i706-FOP>iTOi2'S£fiDC<ci.j) f€xrj>eai 

353 =: r :-:::6 r ^jM7-:i2'BE«cxci.j)'tC)aj'i€XTj 

934 PETURK 

933 DflTfl 9.3,3.3.8,3 

SS9 MTfl 9.33,8.38.8.33 

953 MTfl 96.3.183.9.183.3 

879 Wrm 96.33.183. 38. 183. 33 

373 W>T» 17,6.9.3.9.6 

839 WTft 17,32,9,35,3.32 

533 DflTB 89.6,96.3,96.6 

S58 WT» 38.32,96.33,95.32 

393 Wifl 23.9,17.5,17.9 

988 WITS 23.29,17,32.17,29 

903 WTfl 88.9,38.6.99.9 

918 WTfl 88.29.89,32,89,29 

?I3 WTB 33.12.23,9.23,12 

928 WTfl 33,26.23,29,23,26 

923 WTfl 72,12.88.9,88,12 

938 MTfl 72,26.98.29.98,28 

933 WTR 41,13.33,12,33,13 

948 OftTfl 41,23,33,26,33,23 

945 DfiTfl 64,13,72,12,72,13 

938 WtTfl 64,23.72,26.72,23 

933 OftTB 49,16,41,13,41,18 

968 WTH 49,29.41,23,41,28 

965 WTft 35,19,64,13,64,JB 

978 OflTft 56.29,64.23,64.28 

971 WTft 29,0.77.0.32,3,73,3,32.9.73.9 

972 MTU 32.3,73,3.36.5.69.6.36,3,69.3 

973 MTft 35.6,69.6,48,9,63,9.48.6.65.6 

974 MTfl 48.9,63.9.44.12. 61. 12. 44. ?,6l. 3 
973 MTfl 44.12.51, 12.48.13, 37, 13,49.12.37.12 

976 WTft 48,13.37.15.31.15,54.16.31.13.34.1; 

977 WTfl 32.33.73,33.28,38,77,38,32.38,73,39 

978 DflTft 36,32.69,32.32,33,73.33.35.33,69,33 

979 WTfl 48.29,53.29,36.32.69.32.48,32,63,32 
988 WTft 44,26,61.26,48.29.63.29.44,29.61.29 

981 WTR 46.23,37,23,44.26.61.26,48,25.37,26 

982 WTft 31,22,34,22.49,23.-7,23.34,23.31.23 
1080 XOSffCVfRPTIKUCB)))' RETURN 
1130 Pfl»»Tt96e,-ll* TOUCWZ S.V.P.'j 
1183 «*l»4rey8'Iffl»-"neWOSuei3M'COT0lie3 
1113 RETURN 
1138 ft»-IH>-£Vt IFftK>*-THD<1178 

1133 P0XE1364I,C* 

1168 IFCP'129THENE»-143ELSECR-128 

1163 FGPK-ircm M£XTK C0T0113O 

1178 PWE13541,!26'RETUBM 

1208 lXl>-8UC2>-38'lX3>-183(X4>-38 MSUB1809 

1283 tXl>*103 (X27-8>lK3>.l83'(X4)-38 CCSiJOieeO 

1218 BETVJW 

1388 C*:«MT013!e.l3i3 

1318 Cff-2PRIHT*998,CHM<143). C0T01328 

1313 CSM P*tIWT»388,CHW(i2e>) 

1320 F0RCO-1T03O MEXTCO ■ PETUPH 

1480 (X!)-0 (K2>*23'(K3>-127'(K4)-23 CQSUeioee 

1403 (XI>0(X2>-16 W3>-I27(K4>.16 COOBieeO 

1418 tXt>«l W2)-16<W3Xt 1X4J-47 CSKLBieoO 

1413 (XD-79'IX2>*I6 (X3>-79 lX4>-47 C0SUB1880 

1428 (Xl)*93'(X2)-16(X3>-73 lX4>-47 C0SLBI808 

1423 LK D-103* W27-16'lK3>l89'(X4)-47CO£uei008 

1438 PBIHT839e,'PEJ(SO#«ES*j'F1IIKTe416,'PT VIE*. FP1MT?42!,-FC»CE*. M1MT8432,- 

PES.-i F«IHT8441.-t?HPHa*l 

1433 rC*J»IT0KJK-J-lP«IWT»C579«tCI«4).K«J).- • ,HK J)i P8IMTK609*»: , 64),H< J), P 

»IW7tf<e!e'f:r64),CXJ): pe-INTK626*-:-S4).P!J>, FPlMTt*!634.|'i64),0<J). 

1448 MEXTJ RETWK 

1388 (Xl)-il (X2>-8 U<3)-SI W4>*t5 OKLeiCW 

1383 PflIHTeie.-r.Cl>-©!-*. FPIKT|42.-fT>r ; TtJE-> P-JJNTBSS.Md); FB1KTJ168."P0IHTS-VI 

£ *, PBIMTei72.m:i).'PPIHT»224,*F0ftCE *i PflIMTtf236.0< !). 

1518 PPlM7l298.-eE5ISTaKE'*jPflIMT83O0.P<I), POIKTItSO.-COUP W nOKSTt»E"i PfllK 

Tfll94.*C0LF K 'l 

1312 E*1WX2)'F«IMT»268,- 

1313 FOwiTOHj fi-n*H«M)fc*Twirr»-HjT)oeeoascp<»iKTe204,- ■, > 
J+l 

1317 IFj>NjrtCMJ-8O3T0!313 

1328 IFN<JX««T««1<J>-1 C0T0I313 

1523 PfltMT8284,Nl/J),*-j 

1330 lFCfl-l29THEMCR-143aStat"I28 

1532 CI«C0tDt333,1348 

■' -OFy.-jlMO ttXK'WtOIWi 
1348 P0KSI3332.CH POTE13488, l28fOBK-tT018 HEXTK COT01343 
1543 «•!■«¥«■ IFM-'*Tt«J«lT01338 
1538 0HEC0T0i;;;,1363 

[535 E-2 i-v-wrXeWX!) F>8[KT8149.7y. ■ IF)M(P< J)Tt€MlJ« 
1568 HtJ>WCJ>-PMO<0<l)) 1 K*i-l P8I«TK6»9"Cl64).NtJ> ( 
1362 Tfl-IP-! r/.roi37; 
1353 <-. W«*tt*7*«J) PH[Knttia,)0(i :r>r<'p(i)ncm372 

1378 F-F-fltCKCXJ)) PPJHT8I72.F, [FF<.0T>«H13e0 

:-.r2 tfl-Tp.i 

1373 !FtP^*2T•CHPIlINT8I«8.•C*WflTTnHT SUIVRMTi 'TP-0'C(KU611M' F*1n;»14?, ■ '. f 

»1MT8212.* ", C0TTJ15I2 

157? COTOtljO 

I3S8 PUIWT8260.-H0MSTPI nX". 

1583 l-l T»-8 PtTUW 

1688 a? M^J81498 

1MB FOSC0T0I28STEP2 0( I >-K'W2)-9 (X3>*: 1X4)-13 COSUBtOOO NT>7K 

1619 Ft»;'8TC2PPlMTtC1301CI64).ST'tIHCK2a.32)j)O;TK 

1612 Pfl|KT12i;,*i VOUS (yQC2..t- J 'Pfl!mi2M.-9*<flV0 l*J 

1613 PSIMTB96e,".EH0 
1788 OS IFT)(-SXTtCM1715 

1782 FOK-IT014 flfACXX 1 >,LK2).(X3>.(X4) OHU81008 'MEKTX 

1703 FW>1T0NJ NCJ>M«CJ><«t«(13)'«XTJ C0SU814e« 

1706 PfllMTle,-J VOICI LE T«9(J» l',*PftlMTtt3?.'IL S'«1T DE UC. P8t«T8l92,*PIE» 
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R£-€T0IL£ J l#ri ^Iv-SSW.'FPeiiElX CIR-."--" 

178?PSIMT*K3,-CBflCE ft SON PJW)I»'. 'P»IWT8104.*OiW.t J0UEU* fiCCOIf. MMIiiS 
:£ VIE ll*i 

:-,! -»-*JC*TIE' BOH -'•6-:-t'TT-2 

1713 «OUW 

1988 as P»IKTe28.-F0NTR:NE <X XWENCE'.PftlKTt^.-CHPOUE JCUFM4 V0IT RESSUtCI 

R*;P9WTe212.-UHE PflSTIE DCS FMCES PEROOES-. 

1883 Fai>*,*5K;'S-:j>-(*j>«(>ex«.i>«3> NEXTJ.C0SOB1488 

1910 I-l-SSTUSx 

4888 FMI-ITOIS BEflCrtKD.WD.KD.PCI) XXT1 -PETiBw 

4M3 WIS DORIES. 13, 6. f.aGSSID*, 13.6,6, rHCICICH.29.3.3 

4806 WTFN0LEW. 28.4.4 

-819 MT» 2!>mi£.3.3.3,CS3J.E.3.3,7.vmPlPE.::6.B.FRNrcrE.4,3,8 

4813 MTP.LeUPH^Wti.5.?.J.1-?.-tL"T£.«.3,4,f*p«H.l3.«.e 

4820 WTft TSaL.t2,5.6,5*»ELlK.3.3,4,ePLLSCC.I0.6.?.K*»>l,9.6.7 

18808 DETIKm-I Cl-«(24.6),vC24,6',ftVf24,6>,Sr'24.$).8W24,6>,8VC24,S).Wl3),W. 

3>.K13).H0CI3) 

18803 0!-O«6.12).0W6.12).t;«C:.6.10) 

ICOie BIRKlJ-'WW'OtWawSWO - P!W3>*aCST- l irIlt»(4y.'EST , .Tt--T(!tS0B* 

J8820 *»*Xf1-P>W8«5<18>'Pr--KX6) ET-1 «.-» 

1W 2j DM nMDfXIt^TINtHKS} '■-; 

19838 esrnsN 

lBlOe FCW-1T03 FWI-1T06 F0aj-lT0!B 
13185 flEPOCtKI.I.J) 
leilB MEXTJ'MEXTrMEXTt: 

:^::' RETUW 

18288 WTft 181188,111888.180088, 118108, 181888.118000,188108. 181008,110808. 188188 

182*1 pfrm iu8io.i9»oo8.eieoeo,i8on3.8!uis,teio8t.eioiejt.«u08.iiioi8.«8iM 

18282 C^Tft 181118.881180.101119,881008, 118800.010800.108000,010180.101888, 108II8 

18283 wra 801800.819100.001988,818110. ioiooo. leoieo.eiiiie.ioiooe.eieiee.ooitoe 

18284 CATft 081100. 111818.801108. 1 1 K\\V«V10O.M1818. U0C00.888188. 181980.810188 
10283 WTft 81 1808,018100,81 1028, 1 10088,010188. 011 1 W, 111010.010188,011800,110108 
18286 M-q 101888. 118018.188188, 1 11000, 188010. 110180, 181808. 1101 18, 181880. 100110 
18207 MTfl 011881. 191118.801180, 10UC1. 811101. 1 IIOOO.OOOOW, 118190.081181.001180 
18209 MTA 181881. 38Ot0«.eil081.919tee.ieie0O,liOeee,018ie«,l|1913.ei3188. 911191 
10209 MTfl 001118.011080,110088.118111.081808,119100.111001.190180,101080.188180 
18219 WTft 011119. 181881, 188108.111888.808180.111801.100180.811118,801180,811118 
18211 WTft 111818.016I 88.611880, 118100.811008, 118118.811801. 1)0080,010010.110100 

10212 WTft 181880.118181,181088. 118888.118181, 181880,118808. 1 18181,111808.188181 

10213 WTft 801100, 181001.881188.181188. 101888,918180. 101880.118080,108108.001100 

10214 WTft 811889.818188.001108. 011000.880108.111888.800180.181081. 818108,811188 
10213 WTft 181181. teilOO. 81 1000.118101. 881000.118190.801108. 811188.181888.188108 
10216 WTft 801181, 881108.181808, 110080. 880180. 181808. 810080. 119181.001108.811181 
18217 WTft 8t 1881.818180.91 1888.118118. 811l08.8I18«t. 118009.118888,810081. 119104 
MOM WTP59. 1.46.3. 38. 1.53.3, 53. 1.61, 3, 38. 1.78.3 
11803 WTB39. 13.46. 12. 38. 13. 55, 12,58. 13, 61. 12. 38, 13, 78. 12 
11810 WTM5, 12.46, 3,33. 12, 35,:, 61, 12, 61. 3.78,12.78,3 
11015 WTft4$. ;, 78, 5.46. 12.70,12 
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m. 1 ^ 


1638 L*=UPRCI(L*> 


\ls 


1631 T«=L* 


^9r 


1632 COSUB 2888 


M ■ V^ ■■"■■■•■•■ 


1648 DISP S« 


HP 75 


1658 IF Kit--" THEN 165 

8 

1788 REK rlnnf 


■ II ■ -^r 


1518 IISP -StrimK-, 


1718 DISP -Rlrid'C; 


1511 DISP - " TOU " - i 


1711 DISP •' BUBU 


1512 DISP -,])=% 


, 


1513 D*=-T0U" 


1712 DISP ■)■•! 


1528 PRINT 1 9999,1 / J« 


1713 D«=- BU8U 


,3 


1728 PRINT 1 9999,1 1 Dl 


1521 MIL -STRIHC- 


1721 CULL -R1RIH- 


1522 REWI 1 9998,1 . lit 


1722 REBD 1 9998.1 , Rf 


1538 m=UPPC!(IU> 


1738 R»=UPRC«(RI) 


1531 T«=IU 


1731 T»=R» 


1532 GOSUB 2888 


1732 COSUB 2888 


1548 DISP St 


1748 DISP St 


1558 IF KEV»=" IHEH 155 

8 

1688 REB ItriM 


1758 IF «Y'=" THEN 175 

8 

1888 GOTO 1188 


1618 DISP -UrmJC. 


2888 REN soulnreiwnts 


1611 DISP •■ I0T0 •■ 


2818 S»=" 


1 


2188 FOR J=l TO LEN(TJ) 


1612 DISP ■)••; 


2118 St=S»tCHR*(Him<r*tJ 


1613 D*=- 1010 • 


,J1»128) 


1628 PRINT 1 9999,1 . Dt 


2128 NEXT J 


1621 MU "LTRIII- 


2288 RETURN 


1622 READ « 9998,1 ; Lt 


2388 END 



AWARI 



Egalement appele "AWARI". "BAO" ou "GISSONO" 
selon le pays ou on y joue, ce jeu africain de strategic 
est tres ancien et se joue dans des trous creuses dans 
le sable avec, en guise de pions, des coquiliages ou 
des cailloux. 

Son fonctionnement est relativement simple mais 
pour battre I'ordinateur il vous faudra mettre au point 
une technique efficace et reflechie car il ne se laisse 
pas battre facilement ! 



I CLStSTTl 



It.l 



10 *ILIS* = ' 

IS SCREEN! •«. !■ LOCATE!*. IOipbihImUmI 

20 BO' . pa.->/ .-.■■■ :-■■:■ . ~ -^" (■?: , : 
i: ATTftM, o: LOCATE ". ;*: B 'INT*M«b(t6«i( 
1 Octot»-« I983-1AITP61.1 
2£ LOCATE 16. I3.8K0N80LE1 I 



a ■ 



■ . ■ 



38 PL«YrtuSt 

35 PRINT NICtXAUMI.I, i ; 

45 NEXT I 

t-ITOKJ 

1L>S» 

65 NEXT I 

9? ---&B3.0-CONSOLEO.24 

100 CLS 

■VomUi wmis U-a H 

£60 If LEFT! i. 

see cl; 

298 LOtoTE 0.- 

295 PRlNT'Ce jcu *":n- . tr» 



i'« cissowo.- 



320 I 



(INT- 



LI.....:'- 



725 PRIMT-trooA « ki 

■■■.■■ 

!«■ -;Pepi 

331 CLS 

J33 PRINT *Cha«iu« ,-.1 



ilNT'CCMT 
343 W (tfl 

356 -=:■-' 

■ ■ - 

■ :'.T"j« :t 



:; ■ 



■ -•-: = * 




I PRINT 
£■ 

» PR I NT "range*. 

:■ PRINT"* tout 

) PPIMT-pou'.-iz 

I PRINTan CAP 

) PRINT"*our 4 
I INPUT "<Enti-. 



n90 PRINT- laiss< 



I PRINT-PPINT 

> E=8 

> FOR 1*0 TO 12 
I 6<I>*3 

i NEXT ■ 



. droit*.* 



■ POUR CONTINUES ' 



:■-.? 


GD3UB I 


460 




':-'. 


SCREEN 






ill 


PRINT-ft uous Ut jOi 




l-ri- 


CO SUB ! 


166 




909 


IF E-0 


THEN 1636 




910 


IF rt-H 


MEM OOt E : 


150 


r7* 


IF E=0 


THEN 1636 




940 








950 


PRlHT'l 


to instant; . 


■ ■ - . 


966 


PRINT 






970 


^0SU6 1 


836 




:■ : ■■> 


:■ z=v 


THEN 1630 




996 


it n=n 


THEN : = ;-.- 


::;.' 


if e>( 


' THEN 370 




:•/:.? 


PRINT: 


PRINT 




1046 


PPIHV 


Parti. t«r»l 




:«■> 


[=&■-;■ 


-BC13) 




1060 


f :■ e 


T*EN PRINT' 




;*ec 




GOTO 2310 




: 1-370 


N = N*1 






ieoe 


IF !■=£ 


'-■.': -■-;■;-■ 




TO 2310 






1!36 


p--:mt- 






=C0T0 2310 






1150 


= ; :-i: 






1166 


INPUT 






1170 


IF M=99 THE* 236 




use 


if n>6 


:■- H : THEI 


- ; :-.- e 


01 t 


•:COT0 


1166 




1236 


H = n-i 






;=46 


IF B<fl 


= ■:■ TBE« -- ; 




:G0T0 1160 






1250 


H=S 






■.■it 


■-, :=■:=: 


1260 ^P| 


LliOl 


:£7J 


GOTO I 


460 


rll J 


1286 


k*h 


■ 1 


i i\/i 


1296 


CQSUE 


1669 




:-:-i 


E"6 






1716 


IF .' 6 


THEM K-K-7 


r_:£ :=: 


1356 


IF C.9 


THEM F<tlJ*F 


■•:■•--■ 


::ii 


FOP 1 = 


6 TO 5 




1370 


IF S'l 


>>:,0 THEM 1400 


[386 


uz:r i 






1398 


: LTI_"--. 






: - ■:■ ■:* 


FOR 1 = 


7 TO 12 




1416 


IF B'l 


■ B THEM : = 


; : : r " . - ' ■ 


]42fl 


NEXT I 






M50 


;r- _:-.., 






1460 


CLS 






1470 


PRINT 


T«E le i 




1430 


FOR I» 


IS TO 7 STEP 




1490 


C-OSUB 


1626 









■ 

1526 1*13 

■ 

1546 Ptim 

155* P*.I«T:fP;»-r 

1566 PSHC 

■■ 

. : ■ ■ 
15W HDC1 1 
16»B PRIMTIPftlNTiPBlaiTtP*! 

■ pain 

]a;0 RCTUM 

■-.'•-: 

tun : ■ 

■ ■ 
. ■ : I 

• F E • : 

■ 
: 



.■ 



• ; ■ 



►i 



. ■ 
■ ■ 



. . -. : 

«>-! THEI 

1760 IF * 

.: ■ 

■■■■. 

:■ ■ -e 

■ . ■ ■ ■ ■■ 
1 1 - ■ 

i?£> : ■-■'"■ 
. 

! ■ ■ 

: -e : 
: '■■ n ■ : 

■ II ■ 
1966 H«J 

1910 COSUS li»6 

:t-26 FOR ■ 

: ■ : : I _ _ 
:>■** - = e : -; 

it i ■ 
2606 IF &.L 6 THEN £04(- 
2010 IF _ 

2620 IF L=|4 THE' 

: : - l • - 
204? it - c --;-. --■ 

2660 NEXT ! 
2676 0-6' 13 

2080 :■ i THEl . . 

2690 I'J 

2100 IF ■ i THEN ■ 

2126 FOR :-■:- ' 

2138 IF f ,.,..;•: ; . . 

EN 0*0-2 
2156 NEXT i 

1-0 TO 13 
: -; : 
2180 NEXT I 
8190 IF I 

2£26 NEXT J 

e . ■ 

2240 IM 

: ; '0 : fl'.' . ■»-.--: 
2266 FOR 1-1 TO 1 

li'i- COT- -, :■■ 

2280 FOR 1-6 TO N-l 

■;:.■&.■■ 
■ 

2310 INPUT -i'.CC'fE : I 

;oto :b8 
:-:4o r L s 

■ ■ : . 

. ■ . ■ 



TIRS CROISES 



Jouer contre I'ordinateur a ramasser le plus de points 
possibles dans un tableau de nombres ou regnent des 
chiffres inconnus. 

Pierre VIOLENT 

Un sous-programme de gestion d'entrees-sorties (SUB INP) vaut la 
peine d'etre regarde de pres. 



100 RMIDOHtZE 

110 CALL SC8EEM1I) 

120 FOR I'l TO 8 

130 OIL COlOP.d.5,12) 

140 NEXT I 

150 FOR I-J TO 9 

!W CALL CHAR?A*(48*I.A 

170 CALL CHAR(96*I,AJ) 

ISO WIT I 

190 CAU CKAR(96.") 

200 CALL CH*R(129,'O0OM)0FFFFFF*) 

210 CALL CKAR(U6.-OO0OFFOOFF-) 

2ZQ CALL CHAR(61,-O00000!03810-} 

221 CALL CKAR(63,'0O38*404OB10O010-) 

230 CALL C0LOR(9. 7, 10, 10, 7, 10. 13,10. 12.14.2.12) 

240 CALL CLEAR 

2M CALL HCHAH(Z3.1.136.32J 

2S5 COUR.SN.SJ-O 

260 CALL MSGCAUTCUR: p. /lOLEKT.O) 

270 OlSfLAT AT(1,1):* •" TIRS CR01IES •** 

275 IF 0N_REJOUl THEN 390 

260 01SPLAT AT(5,l):-V0ULEZ-VOJS LA RECLE ?* 

290 CALL IKPfS.-ON-.'O-.M) 

300 IF RJ-'H" THEN 390 

310 OISPIAT AT(9.1):*V0US J0UE7 CONTRE LA HACHINE 

OU': :*V0U5 RE 1 1 RE Z A TOUR OE ROLE* 

320 01SPLAT AT(1S,1):-UN ELEMENT. SOIf DANS LA': 

:-DU COUP OU JOUEUR O'AVANT.* 
330 CALL 1NP(2».".".R1) 
340 CALL 0.1(9. 1.12, 30) 

340 OISPLAT AT(9.1);'LE BUT OU JEU E5T D-AV01R LE 
U': :'ESr FIHI. C'EST A DIRE quANO" 
360 OISPLAT AT(1S.1):-UN DEi OEUX J0UEUR5 RE PEUT': :-RL05 RETIRER DC POINTS 
:*LE5 7 SWT OES NOKBRES': :']HC0NNU5 AVART O'EIRE PR1S.* 
370 CALL 1RP(24.",".RJ( 
300 CALL CLS(9.I.I(.») 

390 01SPLAT AT(7.1):-C0TE DE LA GRILLE {3-8)? # 
400 CALL INP(7.-23*S678-.".C0J) 
410 01SRLAT AT(9,1):-V0US COHMCNCEZ?' 
420 CALL INP(9.'Ot*.*0'.R*) 
«30 CALL JCCCCREATION OU TABLEAU ...*,0) 
440 CALL CHAR(63.'FFCJBBFBE7EFFFEF') 
460 OIH TA(8.8) 
440 C0-YALIC01) 
465 Lit-" 
470 FOR 1-1 TO CO 
480 LI*-LIHCHR1(48H) 
490 "EJT I 




1 THEN CAIL NSGCL1GNE -»STR((Ll)l* OU COLONNt 



"*&<„*»* 



: :'5UR U 



1ABIEAU Ot NOMBRES 



'LlfJtE, 101 T DANS LA COUME'l 



: 'PLUS OE POINTS QUANO L£ JE 



100 FOR L*l TO CO 

S10 FOR C-l TO CO 

S20 1A(I.C)-INT(10*RMK!) 

530 IF TA(L.C)-IO THEN TA(L.C)-4.5 

5'0 NEJT C 

SSO NEJT I 

S60 CALL CLS(3.1.20,3O) 

S70 CALL KSGCAFF1CHAGE ...".0) 

S80 IF M-'N- THEN LL-INT(C0*RJ«OH):: LC-lNKCO'WO'l ] : : T< 

S90 CALL HCHARfS.S^B^'CO-?) 

600 CALL VCHAR(5,3,96.2*C0*2) 

610 FOR 1-1 TO CO 

620 CALL HCHAR(5,3'2*1.96M) 

630 CALL VCKAR(S'2M.3.96*[( 

640 NEXT I 

ISO FOR L-l TO CO 

660 FOR CI TO CO 

670 CALL HCHAR(S'2*L.3'2*C.rA(L.C)K8-(TA(L.C)*4. 5J«10.5) 

680 NEXT C 

690 REX I L 

700 CALL RSG(".OJ 

710 IF R1--N" THEN 910 

720 COUP-COUP »1 

730 DISPLAT AI(4,20):*C0UP\COUP 

740 CALL *•(•* VOUS DE JOUER'.O) 

750 CALL CLS(8,20.2.10| 

760 DISPLAY AT(8,«):*ll«f 

770 DISPLAY AT(9.20):'C0L0NNE- 

780 CALL IHP(e.LIl,",Lt) 

790 CALL INP(9,LI»,".Ct) 

800 L'VAL(Li):: C-YALtCt) 



: DISPLAY A 



810 Y-IA(L.C) 

820 IF LOU AND COIC AND C0UPO1 

■ISTRJ(LC).l):: GOTO 760 

830 IF Y'O THEN CALL H5GCCA5E OEJA REIOURNEE, - , I ): : GOIQ 760 

840 IF Y-4.5 THEN Y-INI(9*RND'l): : CALL IfiGCLt 7 VALAII 'ISIR1(Y),1 

850 SJ-SJ'Y 

860 DISPLAT AK20.2O):* Ml:*iSM :: DISPLAY AI(21 ,20) :*VOUS:':SJ 

870 IF TA(l.C)-4.5 THEN CALL INP(24.CHR»{13).".Li) 

680 CALL NCHA«(5'2'L.3*2 , C,61) 

890 TA(L.C)-C 

900 LL-L :; IC*C 

910 CDUP'COUP'l 

920 01SPLAT AT(4.»):*C0UP*;C0UP 

930 HX'O 

940 CALL KSG|*OE REFLECMIS ...'.O) 

950 FOR 1-1 TO CO 

960 IF TA(LL.1)>MX THEN flL IJ C-l :: MX-TA(L.C) 

970 IF TA(I,LC)>MI THEN L*l :: C-LC :: HX-TA(L.C) 

980 NUT I 

990 IF MX-0 THEN 1)20 

1000 DISPLAY AT|13,20):*WN COUP:' :: DISPLAY AT( 15,20) ;-LICJIt -;L 

T|16.20):-COIOHNE*;C 

1010 IF HX-4.5 THEN XX-IKT[9'RN(M1 ):: CALL KSG('LE 7 VALAII *1STRS(K)I) . 1 ) 

1020 SM-smxx 

1030 DISPLAY AT{20,20):* HOI:-;SN :: DISPLAT AT(2T.20}:*YOUS:';SJ 

1040 CALL lNP(24,RPTS[CHRt(13).-(IA(L.C)-4.5)).".U) 

1050 CALL HCHAR(S'2*L.3'2*C61) 

1060 TA(L.C)-0 

1070 FOR 1-1 TO CO 

1080 IF TA(L.[)OR TA(I.C)TKEN 1110 

1090 NEXT I 

1100 GOTO 1120 

1110 LL-l :: LC-C :: GOTO 720 

1120 IF!K OU JEU 

1130 CALL KSGCC EST FIKI CO) 

1140 CALL INP(74,CKRt{13).".LJ) 

1150 IF SP4-SJ THEN CALL MSG('HATCK NUL CO) 

1160 IF S«>SJ THEN CALL HSG(*J'AI f^GNE! J'AI GAGNEI'.O) 

1170 IF SM<SJ THEN CALL MSGCBRAYO. VOUS AVEI GAGNECO) 

1180 CALL 1NP(24.CHR:(13).".LI) 

1190 CALL HSGfOI REJOUE ?",0) 

1200 CALL IRP(24,-OH*,*0*,A() 

1210 IF AI-'O- THEN 0N_REJ0UE-1 : 

NT PIS...* :; ENO 

1220 SUB INPtLt.VAl.OEI.RES) 

1230 IF 0E$O" THEN IF POS{YAJ.OE(,1)-0 THEN DEI*" 

1240 IF YA1-" THEM CALL KSGCSU1TE: PRESSER UNE TOUCHE'.O) 

1250 IF DttO" THEN CALL HCHAR[LI.3l,A5C(OEl)) 

1260 K-10 

1270 K*K*1 ;: IF KJIO THEM K-0 :: CALL GCHARfLI .30,1): : IF X-J7 IH!N CALL MCI««( 

LI,30.62)ELSE CALL HCKAR(L) ,30.3?) 

1280 CALL «[Y(5.A.B) 

1790 IF BOI 1HEN 1270 

1300 IF WW OR YA(-CIIH((13)IWR M70 

1310 IF A-IJ IHEH If DEIO" THEN A*ASC(DE.) 

1320 CALL ><CKAR{LI.31.A) 

1330 IF POS(VAI.CIffl|(A).l)<>0 THEN 1360 

1340 CAU KSGCAUT0R1SE: 'AVAi.!) 

1350 GOTO 1270 

1360 RES-CHRt(A) 

1370 CALL MSG(".0) 

1380 CALL KHARUI, JO.M) 

IJ'IO 1UB1N0 

1400 SUB CLS(LI.CO.DL.DC) 

1410 FOR C-CO 10 CO'DC-1 

H20.CALL YCHAR(LI.C>2.3?.DL) 

1430 NEXT C 

1440 SUBIND 

14S0 SUB HSG(1EXTI,B1P) 

1460 OISPLAY AT(H.l)lTfXTt 

1470 If BIP THEN CALL SOUNDtlOO, 110,0) 

1480 SOBENO 



: GOTO 240 ELSE OISPLAY ERASE ALL AT(12,10):**A 
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LABYRINTHE 




Marc LE HEN 



INSTRUCTIONS PART1CULIERES A ORIC: 
-CHR$(17) 
-CHR$(12) 

- CHR$ (4) 

- CHR$ (27) -W 
-CHR$(27)"e 
-CHR$(27) "N" 

- WAIT A 

- HIMEN A 



enleve/r6tablil le curseur. 

efface I'ecran - curseur en haut a gauche. 

Venture en double hauteur. 

couleur du (ond sur la ligne courante. 

couleur du lexle sur la ligne courante. 

lettres clignotantes en double hauteur, 

boucle d'attente de 1/100° de seconde x 



abaisse le plafond memoire disponible a A 

et protege ce qui est implante (par POKE) 

au-dessus., 

code ASCli d'un carre grise. 

commande basse resolution (40 x 28). 

commande haute resolution (240 x 200). 
- CURSET A. B. C haute resolution, positionne le curseur en 

abcisse A, ordonnee 8, C definit .'apparition 

ou non du curseur. 

remplit I'ecran. a partir de la position du 

curseur. sur A lignes. 8 colonnes, C definit 

la couleur. 
DRAW A. B. C dessine un trait, de la positron du curseur 

au point de coordonnees A.B. C definit 

('apparition ou non du trait. 
SPC (A) affiche A espaces avant le texte qui suit. 

La memoire ecran basse resolution est siluee entre les acces- 
ses ABWi et 49H9 et peut etre adressee par POKE suivi du 
caractere (code ASCII) a inscrire a cet endroit - 48<t»t(J>eri haut a 
gauche - 49119 en bas a droite. 



126 
■TEXT 
HIRES 



FILL A. B. C 



18 PRIHTCKtK 17) 

29 PRINTCHR*. .2, 

M PRINT PRIiiT s>0 1 NT PRINT PPIPIT PRINT PRINT PRINT PRIMT'PRINT 

«B PRUrrcMtK4)>CMtK27) a U*iCHR»C27>*f"j8PC<S)<CHm(Z7}"K L ft 8 

t h t h e- 

58 PRINTCHR.K*. 

63 POINT PRINT PRIMT- PRIMT 

70 PPINTSPC<07.;, '•«!!--: L£ HEM IS93- 

■: ..-: ■ VeH 
98 CL3PRIHTWR«<17.<'PP!"T PPINTP'MMT 
92 PRIMT'VoglM-veti* !•* r»9\*% <Pi J*u ? Q/N" 
S3 GET Z% IF Z1--0- THEN 28986 

i&e HiMfji 37988 

118 FOP Z-37318 TO 37931 

12a POKE X.126 

130 NEXT 

140 fW X-37859 TO 37871 

IW POKE >.I26 

168 NEXT 

179 FOB I--37910 TO 371*50 STEP 48 

1SB POKE Y.126 

199 tcxr 

269 FQ8 Y-3783! TO 37871 STEP 46 

210 poke i.xzb 

ir* >'€/: 

238 FOO Z-I TO 188 
248 PERU 04 

239 POKE 37808*40.126 

zee NEXT 

278 WiTft 834, 855. 063. 8*7, 868, 878.891. 892. 89- 

298 OFlTft 89*. 93?. ! 81 . 193, 193,119,137.133,143 
298 [*RTR 144. 14?. 1*7.148. 158,172.173.173.17* 

388 D*>Tft 177.175, 168.1-31. ! 83. 186.212,217.215 
313 DftTR 223,j ,--3.234 
329 C*TR 235. 2*v:...'.,-.26'j. 265. 26*. 268.269. 233 
338 OftTft 297,298.299.381. 392.386.33). 332, 333 
348 URTft 333. 342. 344, 34*. 347, 3-9,339,377,379 
338 WlTR 375, 390. 381. i^. &*. J99. 412, 414, 413 
3*8 WTTft 417, 424. 426.427. 428, 432,454, 433, 436 
370 DftTft 4S7,458.4*8,4*;i,4*;2,4fj,4C4,4S3j4«S 

389 tVftlft 468-478,492,493,494,599,594,534,33* 
398 WITH 337, 536. 539. 548, 342, 544, 543. 347,349 
488 WiTR 358. 571. 372, 3?4. 569, 582, 384. 387,399 
418 OHTR 614, 61*. 617,613, 622.624, 626, 627 
428 WlTR 632. 634, 638. SS8.*61, 662. 663, 664, 666 

439 WtTR 6*7, 669. 6*9. 692. 634. 655, 635-699. 693 

440 WtTR 788, 762,7e4,789,?69. 718. 732.736. 748 
458 WfTfl 742, 744.745, 746. 772. 773, 774, 776.779 
460 DfiTft 760,782.786,787,788.799,912,818,824.929 
388 CLS PRINT PPJuT PRINT 

510 POIIIT-Vo.jl«z-ve-J» wair I. «rt» 9u LftBVBIMTME 7 O'H" 
520 CET V» IF ,'»-'0" TMEII 33999 

■ ■•■- .i.: point print print 

618 PPK»T-Iotf!i'J»X 1* mv-ju d« difficult* 2 - DitYICl 1* tl ■ 



9*0 ZZ-0 

578 GOTO 2140 

1883 PRINT 

180* [HHJT-'lly0O[>,<E>8T.tS)U0,t0)'je9T,(CJftRTE-.fl« 

1987 IF J-37838 THEN 38880 

1816 IF UP--C" THE" 37909 

1820 IF B»-"M- TMEII 1189 

1838 IF «•-"£- TMEII 2188 

1048 IF R»-"S- TMEII 3190 

1030 IF F*""0" THEN 4100 

1668 GOTO 1863 

1180 IF PEEK' J-49/-126 TMEII 1128 

1118 GOTO 1139 

1126 PRIMT- IMPOSSIBLE' -WRIT 408 ■ CO T a 1083 
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ii-:- 


1FPEEC 


F-J29 


- 1 26TMEMTEXT 



IOES CUOSET28.28,8 FILL168.34.127 <W 

lIRES'CUR6CT2e.28.e FJLL168. 34. !2." V) 

MIPES DJP9ET28.28.8 FILLI60. 34, 12? G 
OTO1S40 

1170 1FPEEH' J-IS8)«|261MEHTE'-:T HIPES CWSE129. 28.8 FILL169. )*. 12? G 

OTOtBBB 

1190 1FPF" 2eO..»126THEHTE>T HIKES C*SET29.29.0 FILL 160 

0T01369 

1198 IFPEE'i J-248J4126TMEHTEXT MIBES CUPSET28-29, 9PILL166, 34. 127 

0TOI228 

I i2t ■.'.■■■ B :■:■:'■' 

1249 IF PEEXt .1-201 )-126 TMEII 1200 

1268 WSUe 18138'r;OTOI3?0 

1290 0OSU6 19128 

1390 IF PEE*' >I59'-I26 tHEfl 1348 

1328 COSUe 19138'GOT0138e 

1340 GOSUB 101*0 C0T0138B 

1360 C0SU8 10018 

PEEUJ-I6I wli'6 ThE» 1420 
;.:...- ... ;,l- :•■!.-,■ .■M'-H4> 
1428 GOSUB 19160 

1448 IF PEE*' J-139J-126 TMEII 1488 
1460 GOSUB ivii?8GrjT01328 
1480 GOSUB 19188 <WT01329 
1390 COSU0 19820 

1328 IF PEEV- j-121 -126 TH6II 15*9 
1V8 '.Oi'Jfi 1821^ GOI0I388 
:■:•■■■ ■■ i )'V.:V 

1308 IF PEEKOH9>"126 THEN 1629 
■■ ■ " . .■:■■ :■■■.-' 

1628 GOSU8 10228 G0T0I668 

1*49 CCr^ug 19930 

1660 IF P6EKCJ-BD-1M TMEH 1789 

1689 GOSUB 1 9238 'GOT01 726 

!.-fii wsiJS 19248 

1729 IF PEEf J-79 -126 THEM 1760 
1748 GOSUB 19279 COT01899 
1768 'iOS'.* 182^0 GOTfllWe 
l'^^ CvS'JB 19849 

1999 IF PEEK' J-41-126 TMErl 1848 
1828 Wsub 19296 «T01868 
1849 GOStJB 19288 

18*9 IF PEEk' .'-;? .-126 TMEII 1999 
1889 GOSt* 19319-GOr01949 
1599 G0SU9 10398'GOTO1940 
1529 GOSL« 19939 
1949 IF PEEKCJ-D-126 THEN 1580 
.■■-'-'>.■:■'■; 

■ii-i IF PEO«J+l>-126 THEM 2048 
2020 GfftijB 19339 GOT 02641 
2840 GOSUB 18349 

2941 CURSET 111,16.0 

2942 CWW 78.9,2 
2843 CUOSET 118.16.0 
2B4J CHFlR 79,8,2 
2843 CUOSET 123,16.8 
2646 CHPR 82,8,2 
2947 CURSET 132.18.9 
2848 CHRR 68.9.2 
2868 GOTO 1893 

2189 IF PEEK' J-l>-I26 TMEd 2129 

2! 19 GOTO 2139 

2120 PRIKT* IMPOSSIBLE" W8IT 499 GOT01883 

2139 J»J*1 

2149 IFPEEl-Ol j-12*TM£MTE/T HI FES CUPSET20. " ~ 

02929 

2130 IFPEEKf J-2)-126THEMTE/a'H!FES CURSET28, 

02789 

2169 IFPEEl" J*3;-l26THE!irE:<r nlFES'CUfi3ET29, 



• ■ ■ . ■■■■- 

3949 IF PEE*' .'•! -126 Tm£m 3g4jf 

■ MB --- ■- b IB33B V. mSM 

3988 «WS>JB 10328 

4888 IF PEE*' J-1/-126 THEN 4040 

4829 CASUS 18338 COT0484I 

4040 GOSUB 103411 

4041 CURSET 111,18.0 

4042 CH0R 03. 9. 2 
4843 C'JOSET 118.18.9 
4644 CHPR B3.B.2 

4043 CURSET 123. 10.0 
4046 CHRR 6B.8.2 

484? IF J- 37730 OR .W7790 OR J-37838 THEN 4049 ELSE 4060 
4849 CURSET 184.86.9 
4049 CMflR 83.0,2 

4058 CUtXEl Hi ■^■' 

4031 CHRR 79. B. 2 

4032 CURSET 118.09.9 
4853 CMftP 82.B.2 
4934 CURSET 123.80.0 
4?35 CHBJJ 34,8.2 
4936 CURSET 132.80.0 
4057 CHflK 73.0,2 
4838 CURSET 139,90.8 
4039 CHRR 69.0.2 
4*69 GOTO 1003 

4160 IF P£E»WJ-IJ-I26 THEM 4128 

4110 GOTO 4130 

4128 PR KIT -IMPOSSIBLE - t*IT 400 GCTO1B03 

4139 J-.M 

41 4e IFPEEXOJ i-:Z6I-EHIE>:T MIOESO^>S£I20.20.3 FILL168, 3*. 127 WT 

04528 

4199 IFPEE*'.>-2>-I26T>€>iTEXT MIPES CUPSET29.29I.9 FILLIP I 



2170 IFPEEK'J*4/-I26THEMTEXTHIRES'CUPSET29, 



F1LL160 



34, 127 -COT 



21S9 IFPEE*' J-5'-!2*TME?iTE:-:r MIPES ■ Ci--R3ET28,29.8 FILLI69. 34, 127' GOT 

02360 

2159 IFPEEK<J**>«126THEJITE>:r HIRES CIJPSET20. 29,0 FILL 1 60. 34, 127 CO! 

02220 

2229 GOSUB 19088 

2240 IF PEEM J-35J-126 TMEII 2288 

22*0 COS'je 10n0GOTO2360 

2288 C0S>JB 19129 

2399 IF PEE*" J-45/-126 IMEII 2346 

2328 G09UB 10158 G0T023Se 

2348 GOSUB 16148 G0TO2393 

■ ■-■ .■ i: '.■■■■:■• 

2i*H != PEEK' J- 36-126 THE" 2428 
; IBI7B COT02448 



■ ■ ' 



'; ; -: ■ 



- PEEl" J-44/.I2S THEM 2438 

;A',*i GOSUB 18139 C0TC2328 

VAS V.V.-b 1S1*0 r ,OI02329 

i'-ifft V~'.<e 19929 

2329 IF PEE"' J-j?.-126 THFii 2360 

2349 COSUB 10218- C0T0238B 

B 18298 
2389 IF PEEi-' .i*43i-12« TMEII 2629 
2-:88 r //'HJ6 182i9C0rrj2*68 
tW, G«UB 1^229 C0T02668 

.-.(■«;• '. ■ '■ :v>'-/ 

2669 IF PEEK' J-39>-l2* TMEH 2788 
2689 GOSUB 1823800102728 

:■.■--.■ ;.■- . :. :,.-.!.- 

2?29 IF r-EEK' j«42 -126 THE" 2760 

2740 GOSUB 18278 00102900 

2768 CUSue 10268 G0T02888 

2780 C0SU6 18049 

2^99 IF PEEK' J-3? ,-126 THEJI 2349 

2829 GOSUB 18258'G0T029€8 

2848 COS'JB 1B2B0 

2869 IF PEEK' J-41 -126 th£H 2908 

28*8 GOSUB 18318'MT02940 

2909 COSUB 18380 C0TO2546 

2>29 GOSUB 19839 

2949 IF PEEK' J-40-126 TMEH 2989 

2968 COSUB 18330GOTO3988 

2986 COSUB 16328 

3808 IF PEEK' J.48 1-126 THEN 3940 

•■ma COSi;B li-358 '".0TO3641 

3040 GOSUB 10340 

3841 CUOSET 111.10.8 

3942 CHRP 65.0-2 

3843 CURSET 118,19.8 

384* CHF.P 63.9.2 

3843 CURSET 123.16.0 

?P4t. fHPP 84,8,2 

39*8 GOTO 1693 

3198 IF PEEK' J*49, -126 THEM 3129 

3118 GOTO 3139 

3128 PRIHT- IMPOSSIBLE'. MRIT 489 GOTO 1903 

3138 J-J*48 

3140 IFPEEK'-J*48>-126THEMTEXT HIRES CUOSET26. 20.6FILLI60- 34, 127-GO 
T03928 

3139 IFPEEK' .i»88 -126THEMTE^T HIRES DJ»SET29,Z9-9 FILLI68. 34, 127 CO 
TO37B0 

3159 IFPEEK' 1*128 -126IHEIITE:<T HIRES CUOSET29.20.BFILLi68, 34. 127C 

OT03649 

3170 IFPEEK' J*160)-I2*THEIITEXT HIRES CURSEI20- 20-6 FILL169. 34. 127 G 

QT03388 

3188 IFPEEK' J*28B>-12*IMEIiTEXr HIRES CW3ET29.29.e FILL 168, 34. 12? C 

OT 03360 

3159 IFPEEK' J*240,-126THEH!E/!T HI FES C'JPSE 120,20. 6 FILL 168, »4, 12? 'C 

rirr/3220 

3249 IF PEEK' .1.281 1-12* THEM 3289 

nee <sy ue 19139 coio3388 

;/-;« GOSUB 18128 

3398 IF PEEK' i-153'-126 Twru jj48 

332B COSUB :ei30COTO3388 

3340 COSUB I8I40.GOTO3398 

■ . ■' B 19018 

•jfrg IF PEEXl l*lfil -12', THEN 3420 

3488 MS"JB 18I78&0T03448 

>*><> GOSUB 10169 

3440 IF PEEK' J*159'-126 THEM 3480 

I4M GO ■■■'■■' G0T03928 

fi leiBB-coTowze 

T,09 i;<C<m 18929 

3528 IF PEFK' .1*121 .-126 Mil ■ ■ >. 

■■548 i,u',UB 10216 00103398 

■■-.■■■• a ■ m 19209 

3388 IF PFF.K' 1*119-126 fMEII 3*20 

:..-:■ ..I.-...1: s;.;- ■■ <:■ n ■cr.ii 
M 18228' C0T036S9 
3646 GOSUB 10938 
3668 IF PEEK' J*9W-126 Tl« H 

■, ... ■ , ■■■-.:■ ...■: 

3720 IF PEEK' J*/9 -126 I MEM 3760 
3748 COSUB 18270 GOTO3808 
lifM GOSUB 1 6268 ■ GOTO3B00 

■,Mil 

3S09 IF PEEK' J.4I f-126 tHEM 3040 
3929 GOSUB 10258COTO3860 
3840 COSUB 16286 

39*8 IF PECK'. 1*35-126 THE! I 3980 
3688 GOSUB 19318 GOTO3940 
.;-,T03949 



127 COT 
127- COT 
12? GOT 
127 COT 



4169 IFPEEK(J-3>a|26T>CNTEXT m1RESCURS£T29.20,8 FILL168.34. 
04640 

4170 IFPEEK' J-4,. I Z6TMEMTEKT HIRES C\iRS£T20.28,8 FILLI60.J4. 
04380 

4188 tfTEEX04»l26T(CHTEXT MIRES'CUPSET2e,20,8-FlLL160,34, 
04369 

4199 IFPEEK-' j-6 -126IHEXTEXT hires CWRSET2B,».| 
04220 

4i29 K-S'JB 188B8 
4249 IF PEEX':j.35>-i2e THEM 4288 

i .:-■■■ v : - :-:-:.-.- ■, " ■• ■■■■ 

4288 COSUB 10120 

4389 IF PEE"' J-45 -125 TMEH 4340 
■=;;:■ COSUB IB13B C0T043Se 
4340 COSUB 18140 G0T04388 

■i ■-.- :.: : .1- :.-■-:■■ 

4330 IF PEEK< J-36/-126 TMEH 4420 
4480 COSUB 19170 GOTO4440 
4428 COSUB 10168 

*448 IF PEEK J-44>-126 THEM 4480 
4468 COSUB 18158 C0TO4528 
44B0 COSUB 181BBC0T04529 

-■: B 18829 
4326 IF PEEM J*37J-126 TMEH 4360 
4340 COSUB 18218 C0T0438O 

3UB 18298 
4388 IF PEEK. J-435-126 ThEM 4620 

■■ ■■ . : :■-. ■■ : -■ ;-■-.■ 
4*28 COSUB 16220 C0T04668 

4640 H - i IBB3B 

4660 IF PE£l«J*38>-126 THEM 4700 

4*88 COSUB 18230 G0T04728 

4789 GOSUB 19240 

4728 IF PEE" .'-42-126 THEM 4768 

■-■■■■■■ ■..- ■ :.-. ■■ ..: i .:. .-.:- 
4760 C0Sl« 18269 GOTO4909 

4000 IF ' ■ HEN 4848 

4928 COSUB 1B298.C0T04968 
4948 GOSUB 10289 

4068 IF PEEK J-41 ,-126 THEM 4580 
4899 COSVS 1931PGOTO4940 
4908 COSUB 10300 C0T04948 

4929 COSUB 16830 

4940 IF PEEK' J*40)-126 THE" 4989 
49*8 GOSUB 18338.GOTO308O 
4988 GOSUB 19326 
5088 IF PEEK' J-4C-126 THEM 3948 

5828 cosub lease v 

S048 COSUB 183^- 

5041 CURSET 194. IP. t« 

3842 CHRP ??,6.2 i 

5*43 CURSET 111. 18. 8 

3844 CHRP 93.8.2 1 

3043 CURSET 118,10.0 

584* CHRP 69,9.2 

3C4? CUOSET 125. 10, fl 

5«48 CHFtV 83,0.2 

I 132,16.0 
5056 CHRP 84,0,2 
'-:■•■■ ."...IT ■ !.--■'. 
18880 CWSErin,63.0-CHWtU18.0.2'DRRW0-25.2 -C 

...2 [,RftU8,40.2 tiORU-38.6.2.t4?WJO.-40.2. 

ct met. 

1BB28 CURSET91.33.e[*MM38.6.2 0Pr-U8.33.2 MrtW-38.8.2 ORftHfl. -33.2 ft 

18^38 C'.*SEr7e,4?.8'00ftU98,8.20PftUB.78,2 DRRU-88.6-2 (jRRWO,-70,2 R 

Fruit. 

IP049 CURSET61 4.3.-I ' . ■ . ■. ■.. L-of4Jn.-l80 

,? PEIURM 

10859 DJRSeT41.3B,B'C*nHl5».B.2 WWH8, 138.2 i'i.u-i5O.0.2C*i»W. -130 

.2 RETURN 

1B128 i;"PSETie0.6e.e opfiuie.:,; ww*ue,J . return 

lone cuRJETiee,£*;,e muie • 

1OM0 CUOSET 148,68-0 DORU-18. 5,2 IVRRM0, 25,2' OPfiWIO, 10.. ' 

ETi4«*«s.e wmu-ie ■ -.;.--. returu 

19160 CUBSET59. 53,8 0RW16, •■..' •■■■■"V.-. 48. 2 I'".; 
I01?0 CURSET96.60,6 [iORMIO.6.2 tPRlt6.4P.2 t*P4.1-18.9, i I I 
B '■■■■■■ :."i.5.2 l.ORM9.40,2iDR«J19.10.." 
I019B CUPSFT139..-.0.8 C'i-1.1- 1 « . !-•.;■ [RIHI9.40.2 PORU10.9.;' ' I 
18200 CURSE I."--. -i?.f* r'M.i;-. -..? I.,H-.;i' -.-,.; drhij-13. 15-2 PEIURM 
10218 CUOSET?3.55,0.DORMI5.8.2 lRfvi8,55.2 OPiill-15.1' 
16228 CUOSET If 5. «.!. 8 [,1-c.il-r . .,..;.....,..... ..,-.., 

■■ ETI65.53.B MBBJ-13.B.! WflH8.S3,2 ORAUI9.0.2 RETWW 

■ ■ JET60.40,e WMHlS.7.2 :'PRM0,78,2(>RftH-13. 15. 
18256 CLIPSE 168- 47,0 [FCiUi S. it. Z &FHW8.79.2 [.Wi:i-:-. ■ .' ' 

16268 ii)p';ETiee,4a.fl Ntnu-13.7.2 0Rflwe,7e,2 dormis.i?., 

16278 C'JOseT100,47.6tiORll-13.6.2'fnRftWe,7B.2 MAMIS.B . RETURN 
1B26B CUPSET4O.30.0 t'Ortl2e.lO,2 DPBH9, 1BB.2 C*flH-2B ( 20, 

.... : i-,.. ,-. : m ii.ilfi 

■ 1 . I '---.-. .- RLTI'P'I 
1<V:1C r_.it ■ FtTUOii 
IB32B n.w'i 1;... .■.■.!■ 1 f-:i,,.. i--.. CfiBHO. OB.j i nui -,-n.,.i ^ RETURN 
I033B CUR6ET2B,3B .■■■•.■ 

10.40 CURSETl 20,10,2 C'CfrUO. 136,2 DRRM28,i8 . 

10339 CURSEr22B.3B.fl DPmi-29,9.2 ORU8. I30.2 t*RU20,H . . ■ 



^ C 



■ ■ 



' ' 



1 d»n« un 1 it./rlntht d« 20 r 
, u*v» P4WVM (HMI I 



28838 PRIMt". ««UC7w, ••- U Point cTjrrlv*-* 'R>. «n b.» * droit*." 

288*0 FHIHT-En cour» a* j*u. voul Ponrr« r*uolr -_«M» cirt* fl« I J 

16 fol» "< 
2P0?0 PO|MT-t*l..n 1* «1v*'u rl* dlfflcglt* Ch01»l. Vdtr« roii'.ton M 



,.B0Fi5 FPIMI-fl'.t.ri'.i 



• In* »«nd<n*. 10 »»e*n"l*t, 



26939 PRIMT PRINT -PRIMT 

20100 PRINT "f»i>ii»*r i-ir un* 'ij'ittw »Our r ntinu»r.* 

zeiie gei lit ■ i 

,-6170 POINT. PRIKT PRINT 

20138 PRIMTSPC<6J.*P#nd»n*. 1* l«u, vou» n* v*rr»t l.j. 



■'•PftctWirt •:«•* >■»' '•«* '}"•% ""» d* 
■ i Duit.* 



f teyrh* »ouc « 



11 -'■<•!» RETURN. 
.it,.'-. i-Fvinr PRIMT 
28218 PRINT PPIMT"W>»u»* 
28226 GET St.CO'O 168 

■Ail'!- illNl'iMin PRINT MINI Rfl 

30020 PRIIIT-BRBVCi. VOI.« 0>/E2 TPOUVE LR 50R'IE •" 

. .-.- I i... 

■:■.■:■ 

■■ ■■■:. ■ ■ . 

33920 IP HEX* I ■■: II6B.1M 

. .. 

.,- 1-1 II"! ■ 

i 17038*1 1 I68-6S 

in looo 

-n. B '. ' ■■■■ 
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BIORYTHMES 



Le programme utilise les 26 variables fixes et les 
1680 pas de programme. Ce programme ne trace 
aucune courbe (c'est en cela que reside une partie de 
son originalite). mais fournit le jour de naissance, I'age. 
le nombre de jours de vie, le signe astrologique, la pro- 
chaine echeance du cycle harmonique et, pour 
chaque cycle (physique, affectif, intellectuel). la valeur 
du jour, un bret commentaire et les previsions pour le 
prochain jour "taste" et le prochain jour "nefaste". 

DESCRIPTION DU PROGRAMME 
PO Programme principal assurant la saisie des donnees et even- 
tuellement le formattage de ces donnees (exemple pour les 
annees, il ajoute 1 900 si n'ont ete inlroduits que les deux derniers 
chiffres) II assure la plus grande partie de I'impression des resul- 
tats, calcule I'age exact en fonction de la date d'utilisation et 
decide de souhaiter un ' BON ANNIVERSAIRE * si cette date est 
celle de I'anniversaire, tait avancer ie papier et propose, sous une 
lorme Ires abregee. une autre "consultation", 
PI : Programme specialise calculant le nombre de jours entre la 
date d'utilisation et !a date de naissance. Envoie a P2. 
P2 Programme specialise calculant le jour de naissance Envoie 
aP3. 

P3: Programme specialise calculant le signe astrologique. Retour 
a PO pour le debut de I'impression. 

NOTE IMPORTANTE : Les lignes 6 et 8utilisent la fonction statis- 
tique SAC. Celle-ci n'a aucune utilite dans le programme, mais 
permet d'avoir un numero de ligne necessaire dans Ie cas de ('utili- 
sation de I'adressage indirect du CASIO. Cette "astuce" utilise 
4 pas par ligne lie minimum possible) sans avoir aucune influence 
sur le deroulement et surtout la rapidite du programme . 
P4 ■ Programme imprimant le jour de naissance a partir des don- 
nees fournies par P2. 

P5: Programme assurant le calcul des biorythmes, I'impression 
des valeurs au jour d'utilisation et les differents commentaires. II 
est en relation avec les programmes P6 et P7/P8. Ce programme 
est utilise a trois reprises par PO et assure certaines fonctions 
d'impression et d'avance du papier. 

P6: Programme calculant la valeur du cycle pour un moment 
donne 

P7: Programme preparant les previsions. 
P8: Programme calculant les previsions. 

P9: Programme assurant I'impression du signe astrologique en 
fonction des donnees calculees par P3. 
Dans le but d'obtenir un programme tenant en 1680 pas. il est 



(Note: le tiret represente un espace.) 



necessaire d'introduire dans certaines variables fixes des carac- 

teres utilises par le programme a plusieurs reprises. 

Ainsi, apres avoir introduit le programme en mode 1 (Bon 

courage), revenir en mode 0, puis faire 

MS--OATE" (exe) 

NS-'MOIS" (exe) 

RS--MAUVAIS" (exe) 

TS-"_TRES-(exe) 

U$-"CYCLE" (exe) 

W$-7" (exe) 

X$"-_JOURS" (exe) 

Y$-'DE VIE" (exe) 

Z$-"BON" (exe) 

FAIRE ENSUITE UN SAVE ALL"BIORY10' 



UTILISATION DU PROGRAMME 

1 - Charger le programme par un LOAD ALL'BIORYIO". 

2 - Une fois le programme charge, faire F1-P0. 

3 - Le programme demande: ANNEE? repondre par 1983 ou 83 

4 - Le programme demande : MOIS ? repondre par le numero du 
mois (1 pour Janvier. 1 2 pour decembre, etc.). 

5 - Le programme demande : JOUR ? repondre par le quantieme 
du mois (11 pour le onzieme jour du mois) 

6 - Le programme demande: 2 LETTRESOU JOUR?repondrepar 
les deux premieres lettres du jour (LU pour LUNDI. Dl pour 
DIMANCHE). 

Le programme est alors initialise a la date du jour, il ne redeman- 
dera plus ces informations sauf si on refait F1 -PO. 

7 - Le programme se presente en affichant JE SUIS CASIMIR puis 
demande: ET VOUS? repondre par un nom ou un prenom (si le 
nom introduit fait moins de 20 caracteres. lors de I'impression. il 
sera centre en dessous de "BIORYTHMES"). 

8 - Le programme affiche : BONJOUR nom puis nom DONNEZ- 
MOI. 

9 - II demandera ensuite I'annee de naissance. le mois de nais- 
sance (en chiffres) et le jour de naissance selon les modalites 
decrites en 3. 4 et 5, 

10-11 affiche ensuite : MERCl nom 

11 - L'impression se fait ensuite sur I'imprimante (que vous avez 

eu soin de brancher et de munir de papier et piles). 

12 -Apres I'impression de tous les renseignements. le CASIO 

affiche: CONT ) pour vous inviter a appuyer sur la louche 

CONT afin de relancer le programme en 7. 



Ce programme necessile /'utilisation de I'imprimante 
FP 10. Sans imprimante. il taut supprimer dans le pro- 
gramme PO //goes 8 ef 15. mode 7: et MODE 8:. Le 
mode d'utilisation doit etre moditie comme suit: il faut 
introduire les programmes en MODE 1. revenir en 
MODE et introduire les variables suivantes : 

kit ="0/171- 

t$ --mois- 

R$ •-MAUVAIS- 
T$ =-_THES_" 
'CYCLE- 



repr^sente un espace 



XS ."_JOUHS_" 

YS--DE VIE' 

Zf --BON- 

Le resle du mode d'utilisation est sans changement 



La Redaction 




Jean DELATRE 



Certaines lignes des programmes necessitent. pour 
etre chargees en memoire. un compactage des blancs. 
Par exemple, la ligne 8 du programme PO ne'cessite 
pour eTre ecrite (en mode WRITE) la suppression des 
blancs entre MODE et 7. GSB et =--', etc. Pour ceia. se 
positionner sur le caractere suivant le blanc a suppri- 
mer et taper la touche C. 

La Redaction 



I-': 

. 

E :.: : :- 
..... .._. 

:■' ";i 
S :: : n 

■;:6St 

'■'-■-.i 18 

.;:iH?S:f? 
I «;r : 
■ ■- "HEItCI 

l|:MK V.f 

FT ' ■- 

i;m at mj 

ZltiPRT 
! ■■■' l,"ESI HE L 
E":SSB HiPRI C 

;m;e;«;tw?T 

:I=v-n-l:IF EiS 
il»W 

18 if E=e:if fjcji 
=i+isif r<;m 

"< BOB f ' 

SRIRE •" 

11 PRT 'VOUS fiVEZ" 

F;m;EiRI;D:?RT 
"SOiFlJ.MlY! 

12 PPT SPR1 

i "USSS 19:PPF 
:PRT Ittl'PWSl 
B1E":L=18:88B ! 
5 

13 PPT "E 
"i6S8 -■'■ 
'■TEL^ECTiJEL":&S 
BIS 

14 PRT "KB 
"."PERIL 
llttfttl- 
J/l«)»l 
f:T 

15 PPT IPS 

3:PPT "CfflT— > 
":ST0P :6OT0 5 

16 PPT "EN CNIFFRE 
S",H!l 

IT PPT " M NAISSB 
HCEMPET 

18 IF R<1988;R=F,n 
388 

19 RET 



STEPS 

.-■-■■■ V:i ;;:=--; 
: , : 

■ 

' E"i«=3 
48 IF E»= 

.; : : M 

78 : : sf^dhn 

75 IF FRR! 
; GOTO S3 

88 FOR P=J-(IBT (J 
/?)«?) TO 1 STE 
P -1:8=8-1: IF 1 
=8:8=7 

85 HEK7 P:60T0 S3 

P3! 148 STEP': 

1 S=6:P=26:S0T0 S 
•2 

2 IF 0281 60T0 P 

3 RET 

4 IF Ol.iSOTO P 

5 RET 
[ SRC 

8 sac 

18 SOTO 2 

12 IF O2U60T0 P 

13 PET 

14 IF 022:6010 P 
13 PET 

16 IF C>23:6«T0 P 

17 RET 

18 SOTO 14 
28 SOTO 16 
22 SOTO 14 

24 if C/2!li=! 

25 PET 

26 S=SWiREI 

P4: 1M STEPS 
5 SOTO S*!8 

11 PRT ■LvWI-SREl 

12 PPT "RRWl'iRET 

13 PP.T ■nERCREOl': 

: ET 

14 PRT "»r:PET 

15 PRT "VEHCREOr'i 
RET 

16 PRT "SffliartRE 
T 

17 PRT "DltlPiKCHE": 
RET 



liEPS 
EfPRl H.liV:6S 

; let ■ 

ippi IBlfREl 

- ; ::- 

■ ::- 

IRET 

Si RET 

RET 

P6: 28 STEPS 
18 V=SIH !FRP,C H, 
L)«368):RET 

P7: 47 STEPS 

1 0=6:PRT "IL SER 
R"!T«;Z$i6SB 18 
:PRT "ET'lTllRt 
!J=l:6OT0 tB 

P8: 89 STEPS 

1 FOR K=J TO R: 
6S8 KSIF 0*1; I 
F V=6.95;S0T0 5 

2 IF 0=1; IF VH, 
9516CT0 5 

3 KHI t 
5'H-JtIF V=8!V= 

L 
6 PRT "DW.VlXI 
: PET 

P9t 183 STEPS 

1 SOTO 8+1 

2 PRT "CflPRICORHE 
":RET 

3 PRT "VERSEftir:» 
ET 

4 PPT "PO!SSOK"IP 
El 

5 PRT "BELIER'tRE 
T 

6 PRT "TMREPJJ'tR 
ET 

7 PRT "S£«E»ljr:R 
ET 

3 PRT "CfiHCEP.'iRE 

I 
S PPT "UOH'iRET 
18 PRT "VIER6E":RE 

T 

11 PRT "BfilflHCE'lR 
ET 

12 PRT "SCORPION": 
RET 

13 PRT "SffilTTftlRE 
":RET 



: .IS1 
VfiR: 26 PRSi 1688 

; = 195! 

B --% 

C = 16 

E = 18 

F =9 

I = 724635 

; = 33 

3 < 11742 

r. -- 11772 

L = 33 

-; --:---. 

H =H0!S 

=1 

P =26 

-- 4 

PI =HRUVRIS 

S =8 

Tt = TRES 

IB =C¥CLE 

V = 38 

a = jcurs 

y* =oe vie 

zi =eoH 



RUHEET 

: 3 

5 

: Ml JOUR? 
:: 

lEfffi 

S 

16 

r,iK~. IESH 



M 6I0RYTHBES » 
JEfttl 



JEBN 

EST HE LE 
JEOOI 
16/ %i 1951 



RU 9/ 18/ 1983 

: VIE 
HOE PH 

-e.i 

FUURS 

Ei IRES ' ' 

CYCLE EM 



IL SERfl TRES BOH 
JOURS 
IfillVMS 

MHS 18 JOURS 

CYCLE INTELLECTUEL 

-8.9 

NAUVRIS 

IL SERB TRES 80K 
OfiHS 13 JOURS 
ET TRES IWiVPiIS 
WHS 38 JOURS 



CYCLE HflRBOtllOUE 

3 11 JOURS 



: : :.;niP 

SOHJOUP ■ 
FBfflEE SE 

DPTE de kdi 

9 

BEPC1 HEURI 
• < EIO-'VTH-ES >< 
HEHRi 

KEHRI 

EST NE LE 
SPinEOl 
9/ 18/ 1948 

t BON PMIVERSAIPE • 
VOUS fiVEZ 35 BUS 
RU 9/ 18/ 1983 
SOU 12783 
JOURS BE VIE 



-1.8 

■EseoN 

MRS 1 3 '■ 

CYCLE ER011 

-i). 2 

PNSSRBIE 
IL SERfl : - 
OANS 19 Jl 
ET TRES HI 
MNS 5 '■ 

CYCLE INTELLECTUEL 
8.8 
60N 

IL SERB TRES 60N 
OANS 29 JOURS 
ET TRES NAUVRIS 
DANS 12 JOURS 

CYCLE KBRNOHIOUE 
PERIL OBNS 97 JOURS 
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700 «X 0EFC*R-1 TO SO 
1790 DEAD CC.MS 
1800 CALL tlW*(Cf.,PtJJ 

1810 OAM 11,-FrfFFFFF07*.J*.-FFFFff(!li;F]F 
JS.FFFFFFFFFFFF7FB,M.FFFFFFFFFtF!r(FE 
IBUl t»U ol.FCFEFEFlFFFFFUO.bZ.FOC 
*FFFFFF7BFB.9).3TJF0»l,»«.FfFFFFCl 

ISM DAI* »^,CIXO.M.FFFFFtFaFHFOC0CO.»7,CO.»«.0«F8FCF8FllF0F0F0.«.01,10OJ8F0»0 
[Of Of OFM C, 101 . FOSOSOCMOf Bf *FB 

1B40 0AM inj.FOfuFBFCFlfCFCFU.IOl.jfFFFKKnPfKf .ll,4.t«WW»fOCOCOf.0.IOi.C« 
OeoCFOFIFtF V , tM.OOOOOOCOIHXOCOCO 

IBM OAK ia7JFFfFCfSFBIB[BF0J08.FFffC6»[O[0CKOJO4.>>0mjl0.COCO«u«0a0M80t 
O.lll.EOlOtOlOCOCMOaO.IU.FeflFtFCFBfBFMO 

IBM DATA IU.O0O«)00O<lO0OO0FCJI'.0OOO0O«C?l71F»7l.llV.F0fflFtlFtFllFFFFi,l]'..l|]' 
FFFFFFfifrjFI.IIF.OOOOOOuOOOOOOOW 

1870 MIA IU.I .•.iiOOOOOOOOOtOtOtO.lW.CWFFriFFFUFIFf.Wl.OOO 

OSOAOCOCOIOCl.UJ.FBIBFBFFIFI'TII' 

i8»o oaia i^j.imoiMooooosoBors.iiA.cotocoiOF/FFiFiF.ips.rFFiFiFrFiii'Ffr.m.ooo 

30MWWMJO].l^'.O»707O7OMWfir 

1«» DAM i.vi mi'.i.i. F.i.iViJ'flHFIFIFFI.l w.7l)irriIFTFI(F»F,ni.000 

OoorxwiOJOnj.nf.ooooojrntMFPH 

1(00 OAIA IJJ,OOtOfCFFfflffFfF,l».000(«K07F7Ill'F.lJ',./FJHIUI'|7l<IF.I»,ori 

iiF iPofoJPtff.ni, oooooooo; n ion 

mO OAIA IM.MFGf OPBFBFOFFf. 111. 0?01B.!FffFFFirrF.l«0,OOOOiO/HFFFIF«F. !«!.>' i 

FW4(IWMFtl,li;,0F0fl.HJ.FF»QF070l 

!■»» OAIA IMJffIPFFFFFPF«70f.U^.OOOI01,lU,0(X>OOOOOOOOOOOff.U7,FrMfHM«II] 

F0F,14B.0fOFl«IIOt0r0701,M9.0)01 
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■ PtlBt 'C'EST PAS NIL OU TOUT, *;Nti 
t> STOP 

rtlBI *C"tJ1 PA", lOIIBll . Mll.'il 
STOP 

PKIMT -t'liT CAMIMNT JWt, •;«.■! 
STOP 

C*tL HCHARU7.t.<0> 
GOTO B90 

o an ncn*«(ji.n.io) 

6GT0 A90 



10.17.PFFF1F1I11H. /HO CALL MCW«(9,»,«) 

Jin coio 690 

,IFFFFFFF9f,9J.FHFf UK CALl HCW»{». 11.41) 



r.u) 



mo cau HCHA*(;i.7i.4t) 

ilia UTO B90 

mO CAll HCHU(t,|A,4J) 

.V*0 MIO (.90 

HV> CALL «)««■{ 1 1. 7*. 47) 

r>bo UtD 490 

»70 CALl HCMABI17.ll.4l] 
»*0 GOTO IM 

im cau PCMUC1M.411 

7»0 COIO (90 

JUtl CAU HCPiAXb.IS.4lj 

.M.i) COTO 690 

;>» CALL MCHUOI.Il.'l] 

J MO COIO 490 

73TSO CAU BDIUtU.tt.4l) 

;j»o coio 490 

7170 CAU IKHABffi.il. 471 
/Ml C010 CtO 
/IPO CALL MCHAII'. !<.<>] 
,'lfiil GOTO »*0 

.'4io tin comiwt ouiviu 



C'EST NOUVEAU, CA VIENT DE SORTIR! 
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VIRGIN GAMES: 

Annoncees dans le numero 2. les dernieres cassettes 
dejeuxsontmaintenantdisponibles: Pour SPECTRUM 
48 K ; ROBBER, un suspens en 3 parties pour vous 
convaincre que le crime ne paie pas. Votre objectif : for- 
cer la porte du coffre-fort en evitant ie gardien qui 
patrouille. SPECTRON, jeu d'arcade oil, pour survivre, 
vous devez detruire les robots qui vous poursuivent 
avec, devinez quoi ?... un pistolet a laser {si. si !). LOST, 
seul et perdu dans la foret, vous devez trouver de quoi 
vous nourriret vous abreuver. Pour COMMODORE 64 : 
FALCON PATROL, seul survivant de la patrouille FAL- 
CON vous devez arreter les jets ennemis ; votre VTOL 
JET est arme del 00 missiles AIR-AI Ret vous possedez 
un super-radar ultra-sophtstique, de quoi faire de 
sacres ravages! BITMANIA, encore un canon laser a 
votre disposition, mais cette fois-ci, vous luttez contre 
unflotde neurones. Restezcalme !Enf in pourTEXASTI 
99/4A, les ROBOPODS vous aspergent de poussieres 
radioactives, mais vous pouvez les desintegrer en les 
de-activant. FUN PAC comporte deux jeux ; SUPER- 
SOURIS. labyrinthe avec une histoire de TOM et JERRY 
convoitant un morceau de gruyere et ALLONS AUX 
COURSES faire sauterdes obstacles a des pur-sang en 
jouant une fortune sur un outsider sans bourse delier. 



ORDINO-ECOLO : 

Vacances, ordinateurs et foie gras ! SOFT VERT orga- 
nise uneseriedestagesd"initiationalamicro-informa- 
tique a FiGEAC pendant les vacances d'hiver. Du 12 
decembre et jusqu'en fevrier. Pascal MALLET accueil- 
lera des stagiaires sur APPLE II et APPLE lie pour deux 
series de cours : INITIATION BASIC - 30 heures en 
6 jours, 1 800 francs TTC • et D.O.S. Fichiers - 18 heures 
en 3 jours, 1300 francs TTC. Vous serez au maximum 
8 par cession et vous aurez un appareil pourdeux per- 
sonnes. SOFT VERT. Pascal MALLET. LISSAC. 46100 
FIGEAC. 



CLUB GERVAISE D'INFORMATIQUE : 

Ouvert depuis le 5 octobre, un nouveau club de micro- 
informatique pour "demystifier le concept ordinateur 
par I'initiation au langage BASIC en 9 mois de cours 
structures theoriques et pratiques". On demystifie le 
mercredi de 1 8 heures a 20 heures t rente a la Porte des 
Lilas, Salle Municipale BABYLONE, 15, avenue du Bel- 
vedere - 93310 Le Pre-Saint-Gervais. 



UNE POIGNEE POUR ORIC 1 : 

Vous allez enfin pouvoir vous aussi empoigner le 
manche a balai : les extra-terrestres et autres monstres 
n'ont qu'a bien se tenir! Pour utiliser ces poignees de 
jeu.il vous faudra deux accessoires: une interface etun 
cheque de 305 francs (190 francs ('interface et 115 
francs les poignees). ORIC FRANCE. Z.I. La Haie Gn- 
selle, BP 48, 94470 Boissy-Saint-Leger. 



INITIATION A LA MICRO-INFORMATIQUE 

LA CENTRALEINFORMATIQUE organise desstagesdu 
lundi au samedi apres vos heures de boulot (18 h 15 a 
20 h 1 5 et 20 h 30a 22 h 30), vous n'aurez plus d'excuses 
pour ne pas devenir des as du basic et pour ne pas 
gagnerun des concoursd'Hebdogiciel. Pour les scolai- 
res, de 9 a 15 ans. le mercredi apres-midi leur est 
reserve. Les prix : 650 francs pour 10 seances d'une 
heuretrente(enfants)et 950 francs pour 10 seances de 
2 heures (adultes). Vous pourrezmeme utiliser le mate- 
riel en "self-service" en dehors des heures de cours. LA 
CENTRALEINFORMATlQUE.12.rueSaint-Didier. 75116 
PARIS. 



PETITES ANNONCES GRATUITES 



Vends TANDY PC 2 <- PC 1 500) 
4- extension MEV 8K+ table tra- 
cante + nombreux programmes 
(PC-Calc, Analyse financiere,...). 
juillel 1983. Le tout: 4000 F. Th 
VANDAME 170. rue Pasteur - 
33200 Bordeaux. Tel.; (56) 
02.26.28 ou (58) 07.20.57. 

APPLE 2 RECHERCHE ASSEM- 
BLERS LISA 2.5, MERLIN, BIG 
MAC, ORCAM. ECHANGE 
CONTRE LES LOGICIELS DE 
VOTRE CHOIX (UTILITAIRES 
OU JEUX). BAUM LYONEL 6, 
CARREFOUR DE L'EUROPE • 
71000 MACON TEL (85) 
39.0540 

CHERCHE ET ECHANGE PRO- 
GRAMMES POUR Tl 99-4A 
ECRIRE VEKRIS ELIE 25. rue 
Paul-Barruel - 75015 PARIS. 

VENDS Tl 99-4A. interface Peti- 
te!. Alimentation. Cordon K7 + 
Paire manettes de |eux 4- Modu- 
les de jeux ECHECS. 
OTHELLO, PARSEC + Modules 
divers EXTENDED BASIC. 
MUSIC MAKER, M I N I - 
MEMOIRE + Documentation 
Texas, livres. programmes 
Achete neuf en dec 82, excel- 
lent etat 5200 F. p. MARESCH1 1 , 
rue Pterre-de-Coubertin * 91 000 
EVRY, TEL 16 (6) 077 2637 

tsofr). 

Vends ZX 81 + inverseurvirj?r J + 
second clavier 800 F. Vends 
impnmante du ZX 81 : 600 F. Le 
lout 1350 F. Livres pourZX 81 ; - 
La conduite du ZX 81 : 55 F - ZX 
alaconquetedesjeuK : 55 F -Le 
pelit livre du ZX 81 : 60 F. Les 3 
pour 150 F. ZX 81 + inv. video + 
second clavier + imprimante + 
les 3 livres. le tout pour: 1460 F. 
B. AVEZOU 151. rue Defrance - 
94300 Vincennes - (1 ) 328.07.35 
apres 18 h 

VENDS TRS 80 MOD. 1 NIV. 2 
16 K (NOV, 81J -f VIDEO + 

MAGNETO + CABLES + DOCS 
+ LIVRES + 70 PROGRAMMES, 
JEUX. UTILITAIRES. VENDU 
3800 F. V. POPESCOT 149. RUE 
L-M.-NORDMANN - 75013 
PARIS TEL.: 707.52.52. 

Vends ZX 81 + clavier mecani- 
que + RAM 16K + 1 K7 simula- 
teur de vol + 3 livres. Le tout Ires 
peu utilise: 1000 F. Tel. 
M PAILLE Joel : 586.1 7.81 (soir), 

Vends une HP 1 6 C, achetee en 
septembre 1983, absqlurnent 
jamais servie. au prix de 750 F 
M. TERNY Francois I, allee 
Louis-Roveyaz - 78140 Veltzy- 
Villacoublay. 

Vends ZX 81 + Memoire 64 K 
RAM + 4 Livres + 1 K7 - 1 250 F. 
Christian RIVE 7G. av de la Lan- 
terno - 06200 NICE, Tel: (93) 
725716 



modele 82 (achat 12/81} avec 
son. minuscules, auto-"repeat" - 
nombreux programmes - cas- 
settes EDT/ASM + IAGO - Livres 
sur TRS 80 et programmation 
Z 80: 2000 F. Ph. PRUDHOM- 
MEAU. "Le Chapelu" - SOMES- 
SIN 73330 PONT-DE-BEAU- 
VOiSIN. 

ACHETE ORIC 1 , 48 K. ayant peu 
servi. ETUDIE TOUTES PROPO- 
SITIONS. RICHEFEUX P. 274. rue 
d'Entraigues - 37000 TOURS. 

Achete Magneto-cassettes 
avec compteur + cordon pour 
Tl 99-4A Daniel GONCALVES 
"Villa Magali" - 1 234, rue de Paris 
- ECROUVES 54200 TOUL. Tel. 
(8)343.13.94, 

VENDS ZX 81 + 16K + PRINTER 
+ DOCUMENTATION. LE TOUT 
DATANT DU 10/11/82: 1500 F. 
XAVIER BACHELIER 48. RUE 
DES BELLES-FEUILLES - 75016 
PARIS. TEL. 727.38.03 
(URGENT). 

Vends ou echange ordinateur 
VIC 20 avec magneto K7. cours 
autoformation basic, 3 manuels 
sur le VIC. 3 cartouches de jeu. 
1 adaplateur N et B. Achat Jan- 
vier 83. Prix: 2500 F ou jeu 
d'echecs CONCHESS. Marcel 
SAUTORELLE. rue Carnot - 
55150 Damvillers. 

Vds . ZX IMP 450 F. 1 rlx papier 
100F, extension 64 KRAM 400 F, 
livres ZX + progrs a 40 F. TOW- 
NSEND. ST-YAN - 71600 PARAY- 
LE-MON1AL TEL : (85)81.29.75. 

Vends COMMODORE VIC 20 
nov 82 + Manettedejeux + Lec- 
teur de K7 + 3 Cartouches de 
jeux + Cartouche Vic-Relay + 
Cordon Peritel + Autoformation 
Basic + 6 Livres sur le VIC. ETAT 
NEUF. Valeur neuve actuelle de 
['ensemble 4108 F. le tout cede 
2500 F Tel. apres 20 h: M SAU- 
LOU 16 (6) 075 60.63, 

VENDS TRS 80NIV. 216K PRIN- 
TEMPS 82 + 80 PROGRAMMES 
DONT EDTASM ET SIMUL. VOL 
+ BIBLIOTHEOUE COMPLETE 
VALEUR 6600 F VENDU 4800 F 
(a deb.). TOUV1ER J. "LES 
EMBRUNS", ALLEE Dl - 69270 
FONTAINES/SUFI-SOANE.TEL-. 
(78) 221834. 

VDS ZX 81 + MEM 16 KO SS 
GARANTIE LE TOUT 650 F F. 
CHEVALIER 33, RUE CARNOT - 
92150 SURESNES. TEL.r 
506.38.09 

Cotlaborateur journal cherche 6 

acheler imprimante pourZX 81. 
faire proposition au journal 

Echange programmes pour 
Tl 99-4A, Serge PIGUET 82, rue 
du Bois-Hardy - 44100 NANTES 



Cause achat aulre materiel, Cherche expansion Video 
vends VIDEOGENIF. EG 3003 GENIE EG 3014 (32 K) + mini- 



disquette (VGS). pour au plus 
3000 F. SANCHEZ Daniel 41, 
rue de Grigny - 91700 STE- 
GENEVIEVE-DES-BOIS. Tel.: 
015.99.85(apres18h), 

VENDS SHARP PC 1500 AVEC 
CE 1 50 (INTERFACE IMPRIMAN- 
TE/CASSETTE) ET CE 152 
(MAGNETO) ET CE 153 
(TABLETTE PROGRAMMABLE) 
ET CE 155 (8 KO RAM) ET CE 
1 59 (8 KO RAM PROTEGEE) ET 
DOCUMENTATION <+ 4 
LIVRES) + ROULEAUX DE PA- 
PIER + STYLOS POUR IMPRI- 
MANTE + SAC DE TRANS- 
PORT : LE TOUT 7000 FF AVEC 
POSSIBILITY DE NE PRENDRE 
OUUNE PARTIE. M. LEMOINE 
JOEL 2. RUE ALBERT-LEYGE - 
BAT. 28 ESC. 02 - 95340 
PERSAN. 

Vends cause double emploi 
interface PAL Tl 99-44A 300 F 
TEL. 567.61 .27 (matin) 

Cherche contacts pour obtenir 
programmes pour ATARI 800 
Ecnre B. LECOURTOIS. Resi- 
dence Fleurie.Le SAU LE, A ppar- 
tement 2. boulevard de 
BAPAUME, 80000 AMIENS Ou 
telephonerau (22) 47 02 39 ,, 

Vends ORIC 1,48 K.manuelfran- 
cais + prise Peritel + 3 livre»--t- 
trailement de lexte + 16 logi- 
ciels sur cassette + magneto K 7 
- 3500 trancs • Telephoner apres 
18 heures: (1)500.04,17, 

URGENT - Recherche TRACE 
N°1 pour achat ou photocopie 
Faire offre a SAUTEREY. 24, rue 
des Fosses-Sainl-Berlrand. 

75005 PARIS. 

Achete le 21/6/83, vends coffrel 
"ORIC 1 ". 48 K contenant trans- 
formateur mode d'emploi + cor- 
don antenne- cordon din -COR- 
DON PERITEL + SON ALI- 
MENTATION + 1 cassette de 
demonstration + 1 livre "ORIC I 
pour tous". Le tout 2200 F Alain 
AUFRAND 1. rue du Chdne- 
Feuillu - 78260 Acheres. Tel. 
911 05.08 (ap 20 h). 

Vd-i moitie Px pour GRD, VIC 
TOR LAMBDA 1 contrdleur a 
main ■ cassettes BASIC II - 
MUSIC MAESTRO - BOMBAR- 
DEMENT - CONCENTRATION - 
COLORIMAGE - EZEDIT - 
MONITEUR - BIORYTHME 
Daniel GONCALVES "VHIa 
Magali" - 1234, rue de Paris - 
ECRONVES 54200 TOUL. Tel, 
(8) 343.13 94. 

Vends ZX 81 (nov 82) + manuei 
+ cordons et alimentation 
Revise oct. 83 300 F. Patrick 
252.76 26 le solr. 

Vds NEW-BRAIN 32 K RAM 30 K 
ROM + MANUEL 2500 F. Vds 
JUPITERACE + 16 K RAM t 
2 CASSETTES JEUX 1000 F 
DONNADIEU 23. AVI NUE 
MIREILLE - 13009 MARSEILLE 



Vends one 1 . 16 K TBE achete le 
25/07/83. vendu avec manuel 
d'utilisation. progrs et cassette 
PENGORIC. PRIX: 1400 F. A. 
CORBIERE 18. RUE DE GAS- 
COGNE - 31170 PLAISANCE- 
DU-TOUCH TEL.: 16 ( ) 
8644.45 APRES 7 H. 

VENDS CASIO 702 P + INTERF 

MAGNETO FA2 et K7 JEUX + 
DOC + LIVRE "LA DLCOU- 
VERTE DU 702 P". LE TOUT ETAT 
IMPECC. (AVR. 82) POUR 800 F. 
A. PECHMAJOU 1. PL. ST- 
JULIEN - 72400 LA FERTE- 
BERNARD. TEL. 16 (43) 
93 00 59 




DEUX SUPER-CONCOURS PERMANENTS 

1 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bier> original dans cette 
(ormule. pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront tes lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
lameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer. il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tou tes les ex- 
plications necessaires a ['utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Sonne chance! 

Reglement: 

ART 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
Irielle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART 2 Ce concours est ouvert a 
tout auteur de logiciel quelque 
sou le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal conslitue I'acte de can- 
didature 

ART 3- La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 : Ce sont les lecteurs qui, 
par leur vote, determinenl les 
meilleurs logiciels mensuel el 
Irimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimeslriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8; HEBDOGICIEL se reser- 



ve le droit d'inlerrompre a tout 
moment te present concours en 
en avisanl ies lecteurs un mois 

avant 

ART. 9 : La participation au con- 
cours entraine (acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
tort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordin ateur. 

Ainsi. pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn : 

Prenom : 

Age : 

Adresse 

n* telephone : 

Nom du programme 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui nest ni une tmitation m 
une copie d'un programme existant Ce programme reste ma pro- 
priety et j'autonse HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de t 000 francs par page (un programme 
n'occupant pas une page entiere sera remunereau prorata de la si 
face occupee) 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doil etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptil Detaille du Materiel uti 
Use, dune Notice d'Utiiisation du Programme, et dun embaliage 
timbre permettant la reexpedition du materiel non publie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom, te nom du programme et le 
materiel, auque! il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'ApplesurPC 1500. 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM. votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une foissortisde Timpri- 
mante. 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin.lefindulin.expliquezles 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 




DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CES RS . 232 . C. 



MONNOlM EST "HERO 1" 

SaiuMje suis la. disponibiedans 
les jours qui viennent. vous pou- 
vez venir m'adopter dans une 
des boutiques oil je vous 
lesure 50 centime- 
tres el pese 18 kilos. Jepeux etre 
soil une fille. soil un garcon 
selon les inflexions de voix que 
vousdonnerez a mavoixsynthe- 
tique Attention • je ne suis ni un 
gadget ni un appareil menager 
mon intelligence pour etre arlifi- 
cielle n'en esl pas moms reeile et 
avec mes capteurs. moteurs et 
radars, je peux me deplacer 
librement, surveiller I'environne- 
ment d'un apparlement. 
apprendre les fables de La Fon- 
taine aux enfants. repondre au 
telephone, allumer ou etemdre 
la lumiere en fonction de la lumj- 
nosite, vous apporter votre cafe 
au lit el vous rappeler vos ren- 
dezvous de la journee ! 
Mais ecoutez plutot ZENITH 
Data system vous parler de mes 
capacites, moi je suis Irop 
modeste 



Le prix de HERO 1 est d'environ 
25000 francs. Vous pouvez 
obtenir la hste des points de 
vente en ecrivant au journal ou a 
ZENITH Data system 167. ave- 
nue Pablo-Picasso Pare de La 
Defense 92000 NANTERRE 

Hero 1 . tel est son nom, a ete mis 
au point par la Societe Heath 
filiale de Zenith Radio Co. II a 
demande plus de deux an;, de 
developpement et concretise 
une Ires bonne synthese entre la 
micro-mformatique des peri- 
pheriques tres specif iques et la 
pelite m^canique. 

Haut de 50 cm, son corps repose 
sur trois roues dont une de trac- 
tion, et il est surmonte d'une 
"tete" pivotante recevanl la plu- 
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part des peripheriques: radar de 
proximite, radar volumetnque, 
synthetiseur de voix. reconnais- 
sance de volume de bruit, de 
lumiere. clavier ecran De plus la 
tete est equipee d'un bras rece- 
vant une pince, le tout ne com- 
portant pas moins de cinq arti- 
culations 

Son cceur est un microproces- 
seur Motorola 6808 lui dormant 
la meme puissance que celle 
des micro-ordinateurs les plus 
diffuses Ce microprocesseur 
communique avec I'exteneur 
par plus de 18 entrees-sorties 
pour assurer au robot son auto- 
nomic et son adaptation a I'envi- 
ronnement 

Muni de qualre batteries rechar- 
geables. Hero 1 a une complete 
liberte Deux moteurs, lun de 
traction. I'aulre de direction, lui 
assurent une tres grande mobi- 
lity. Trois vitessesiuipermeltent 
d'attemdre la vitesse de 3 km/h 
Le fait d'etre monte sur trois 
roues I'aulorise a tourner sur lui- 
meme sansperdrel'equilibre!! 1 
La duree d'autonomie de plu- 
sieurs heures depend en grande 
partie des fonctions utilisees. 

La tete pivote de 350" par rap- 
port au corps de Hero 1 , e'est-a- 
dire presque un tour complet 

Le bras, sohdaire de la tete. 
pivote egalement par rapport a 
celle-ci pour, par exemple, alter 
prendre un objet a lerre et le por- 
ter sur une table Le bras s'al- 
longe et est muni dans son pro- 
longement d'une pince montee 
sur un poignel Le poignet 
tourne sur lui-meme de pres 
d'un tour complet et peut se 
mettra a 90 r par rapport a I'axe 
du bras L'entraxe de la pince est 
de 9.5 cm. Elle profile de tous les 
mouvements precedents. Le 
bras peut porter un demi-kilo. 
mais la pression de la pince est 
Itmltee a 140 grammes. II peut 
prendre des objets mous sans 
les ecraser 

Hero 1 est sensible au son. a la 
lumiere, aux mouvements de 
tout ce qui I'entoureel 
I'approche Pour cala 
de capteurs permettant d'analy- 
ser lintensite de la lumior*3. 
comme a (ravers un dia- 
phragme, disposant de 256 
valeursd'ouverture Dememe.le 
volume du bruit I'envircnnant 
peut Sire differencie suivant une 
echellede0a256 



Herd possededeuxradars Lun 
volumetrique percoit les mouve- 
ments dans une piece. L'autre, 
radar de proximite, decele tout 
mouvement de plus ou moins 
1 cm dans un espace aliant de 
20 cm a 2.50 metres, situe 
devant la tete du robot Ce radar 
peut inversement servir au 
deplacement de Hero 1 par rap- 
port aux objets qui 1'entourent 
soit pour les eviter, soit comme 
points de repere 

Le robot de Zenith est equipe 
d'un synthetiseur vocal par pho- 
neme 64 sons de base permet- 
tenl la composition de la pluparl 
des syllabes De plus laccent 
tonique dune phrass peut etre 
obtenu par la variation de hau- 
teur de tous les sons de base 
(1 parmi 4j La frequence des 
phonemes et leur volume sont 
reglables pour accentuer la voix 
dans les graves et les aigus 

L'intelligence artificielle est 
obtenue par un logiciel residant 
en permanence dans la me- 
moire qui constitue le moniteur 
de Hero 1. II assure un dialogue 
facile entre le robot et I'utilisa- 
teur par le jeu de touches pia- 
cees sur la tete du robot Celles- 
ci donnent acces a la memoire 
de Hero 1 pour le faire parler, 
ecouter. commander ses 
moteurs. ses radars, sa sensibi- 
lite. L'utihsateur peut. par I'mler- 
mediaire de ses touches, intro- 
duire un programme complexe, 
coordonnant I'ensemble des 
possibilites II peut modifier ce 
programme et le controler grace 
n un petit ecran de six caracte- 
res numeriques. 

Une autre possibility de contro- 
ler el de deprogrammer Hriro 1 
est d'utillser le commodo d'ap- 
prentissape ou de programma- 
tion. L'operateur dispose sur ce 
commodo des commandes de 
tous les mouvements M peut 
etre en mode d'apprentissage 

Le robot etfectue les comman- 
dM mal8 ns 168 enregislre pas. 
au contraire du mode prpgram- 
mation pour lequel Hero 1 repo- 
lera librement tout ce qui! aura 
effectue sous le contr6le do 
l'operateur dans un premier 
temps 

Les programmes peuvent aire 
enregistres sur des cassettes 
atockage. Hero 1 
pout '■'■;■■ 
(lirrjctemont a un ordinaleur 

9 
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NIM 



pc 



A2tt 



UALGORITHME 
- Tola! des tas d'allumettes 
(chiflres binatres) 



1" colonne : total d*s i — V 
2* colonne total des i - U 
3* colonne total des 1 — 7 



Le jeu de NIM permet a quiconque de faire fortune 
avec des allumettes s'il trouve des partenaires assez 
riches! (II y a quelques annees. un film de cinema a 
popularise un jeu identique sous le nom de jeu de 
MARIENBAD.) 
En voici le principe : 

Le jeu de NIM se joue entre 2 partenaires. On dispose 
sur une table un certain nombre d'allumettes en plu- 
sieurs tas. Chacun des joueurs preleve a tour de role 
autant d'allumettes qu'il lui plait, mais seulement dans 
un des tas formes. Le gagnant est celui qui prend la 
derniere allumette. 
Voila qui est simple... 

Cependant, celui qui connait la regie gagne presque a 
coup sur et. pour qui I'ignore. il est pour le moins "aga- 
cant" de perdre regulierement chaque partie d'un jeu 
qui. a priori, parait si facile. 

Le programme que nous vous presentonssur PC 1211 
limite le nombre des tas et le nombre d'allumettes par 
tas a 7, ce qui est d'ailleurs tres suffisant, (nous verrons 
plus loin la raison du choix de ce chiffre) afin de limiter 
le temps de recherche de Ibrdinateur de poche. Cha- 
cun salt, en effet, que la Vitesse d'execution n'est pas le 
point fort du PC 1211 (par ailleurs pourvu d'enormes 
qualites). Or, meme avec des combinaisons limitees a 
7tas.il met entre 45 et 54 secondes pour calculer cha- 
que sequence. 
Theorie du jeu de NIM 

La recherche de la solution utilise le systeme binaire. 
Pour un etat donne du jeu. on inscrit les uns sous les 
autres et en systeme binaire les nombres d'allumettes 
de chaque tas ; soit. par exemple : 

1" tas 4 allumettes 100 

2* tas 3 allumettes 11 

3" tas 7 allumettes 111 

4* tas 1 allumette 1 

5* tas 3 allumettes 11 

6* tas 2 allumettes 10 

7' tas 6 allumettes 1 1 



Pour chacune des colonnes.on totalise le nombre de 1 
et on differencie les colonnes paires des impaires. 
Ainsi, dans notre exemple. la 1™ et la 2 C colonne sont 
impaires. alors que la 3" colonne est paire. L'ensemble 
des colonnes donne une position que nous appele- 
rons paire si toutes les colonnes sont individuellement 
paire et impaire si au moins une de ces colonnes est 
impaire. Tout ceci justifie notre choix de 7 maximum. 
En effet. a partir de 8. Ibrdinateur de poche serait 
oblige d'analyser une colonne supplemental, ce qui 
lui demanderait un certain temps. 
Regie generate 

Une position impaire est gagnante et on doit toujours 
laisser a son adversaire une position paire. 
De I'examen du tableau ci-dessus, on peut deduire 
rapidement les lois suivantes qui apportent "la cle du 
succes" : 

I - On peut toujours transformer une position impaire 
en position paire. 

II - Le joueur qui recoit une position paire rend obliga- 
toirement a son adversaire une position impaire puis- 
que. ne puisant que dans un seul tas, il modifie au 
moins une colonne. 

III - Une position de depart choisie au hasard a de for- 
tes chances d'etre impaire. Dans le cas des 7 tas que 
nous avonschoisiet qui nous fournissent 3 colonnes.il 
y a 2 3 = C combinaisons possibles dont 7 impaires. soit 
seulement 1 chance sur 8 d'obtenir une position paire. 
On peut deduire des lois ci-dessus qu'un joueur les 
connaissant et debutant la partie a pratiquement tou- 
tes chances de gagner si son adversaire ne connait 
pas les regies, et quand meme 7 chances sur 8 de 
gagner si son adversaire les connait. 

Ouf! tout ceci peut paraitreunpeurebarbatif de prime 
abord, mais finalement, ce n'est pas bien complique. 



T 
-W 



IMPAIR I PAJR 

^1 -0 

- 1 -0 

- 1 -0 
■100T+10U + V 



- Si W — — position petdante 

- Si W •* — position gagnante 



- pour chaque tas (P) 
(nombtes binaites it 



1 

- A (P) + W 



oter i u . 

1" tas rencontre 

(X — 1) 



addition decimate normale) 

- dans Y transformation des chitfres pairs en 

- Si Y s A (P) — *■ P - tas a modifier 

Y — nombre d'allumettes a 
laisser dans le tas 

X - A (P) - Y - nombre 
prelevees 
LE PROGRAMME 

Du fait que nous n'utilisons que 7 chiffres binaires. il 
nous a paru plus simple de creer un tableau de corres- 
pondence binaire/decimal plutot que delaborer un 
programme de conversion, 
Le programme est lance par SHIFT A a la ligne 275. 

iignes 275 a 277 - INITIALISATION 

lignes 280 a 283 - confection des tas 

Iignes 150 a 165— coup du joueur 

lignes 608 a 616 — determination de la position (perd gagn ) 

lignes 618 a 625 = TOP est confronte a une position perdante. il 

enleve 1 allumette du 1" tas qu'il rencontre 
lignes 5 a 50 — calcul du coup OP 
lignes 602 a 605 — conversion D/B et mise a jour des tableaux 

et 1 ft 4 
lignes 930 a 950 — protestations aux mauvais joueurs 
ligne 990 — indication de position du jeu 

Le programme a ete "comprime" au maximum du fait 
que nous utilisons la totalite de la capacite memoire. 

Paul GARDAN 



TAS l.*»0TE l.«* 


163: IF <P=0>+<Z= 




jfo/ 1 


RESTE 2. 


0>GOTO 930 




<//<b>K ' 


TAS 4.W0TE Z.** 


164: IF A<ZXP 






RESTE 1. 


GOTO 950 




II A^n t 


TBS 6.»»0TE 2.»« 


165:A<Z>=ACZ>-P 




f\T l\ / 


RESTE 3. 


170:W=ft+B+C+D+E+ 




\\1AL 


TAS 3.**0TE 1.** 


F+G 






RESTE 0. 


171: IF W=1BEEP 2 






TAS 4.»»0TE l.*» 


:F0R Z=1T0 2 






RESTE 0. 


: PAUSE "AH! A 






TAS 2.*»0TE 1.** 


H! JE T AI B 


> 




RESTE 1. 


IEN EU":NEXT 


j 




TAS 2.**0TE l.»» 


Z:G0T0 995 


* 




RESTE 0. 


172: IF W=0BEEP 2 






TAS 6.»»0TE 2.»» 


:F0R Z=1T0 2 






RESTE 0. 


: PAUSE "C ES 






SALUT.A LA PROCh 


T TOI LE PLU 






ft I HE 


S FORT!": 


611 


IF 2*INT (Tx 




NEXT Z:G0T0 




2)=TLET T=0: 




995 




GOTO 613 


l:F0R 2=28T0 4 


173:G0SUB 990 


612 


T=100 


2STEP 2 


175:G0T0 600 


613 


IF 2*INT <U-" 


2: IF Y=A<Z>LET 


275: "A'XLEAR 




2>=ULET U=0: 


Y=A(Z-1> 


276:A<28)=l:fl<30 




GOTO 615 


3: NEXT Z 


>=10:A<32>=1 


614 


U=10 


4: RETURN 


1:A<34>=100: 


615 


IF 2*INT <V/ 


5:Q=0:R=0 


A(36)=101:A< 




2>=VLET V=0: 


6: FOR P=8T0 14 


38>=110:A<40 




GOTO 617 


7: IF A(P>=0LET 


>= 111 


616 


V=l 


R=R+1:G0T0 S 


277:A<27>=1:A<29 


617 


W=U+V+T 





)=2:A<31>=3: 


613 


IF WO0G0T0 


10: IF QO0G0T0 


fl<33)=4:A<35 




5 


50 


>=5:ft<37>=6: 


620 


0=0 


12:Y=A(P)tU 


A<39>=7 


621 


FOR Z=1T0 7 


15=T=INT (Y/100 


280:F0R P=1T0 7: 


622 


IF 0O0G0T0 


>:U=INT <<Y- 


INPUT A<P> 




624 


100T)/10):V= 


282: IF A<P)>7 


623 


IF A<Z>>=1 


Y-100T-10U 


BEEP l: INPUT 




LET 0=Z:X=l: 


20: IF T=2LET T= 


"CHIFFRE INF 




ft<Z>=ACZ)-l: 





. A 8 S.V.P. 




Y=A<Z> 


21: IF U=2LET U* 


"»A<P> 


624 


NEXT Z 





283: NEXT P 


625 


GOTO 140 


22: IF V=2LET V= 


284:G0SUB 990 


930 


BEEP l:F0R Z 





580: FOR P=13T0 2 




=1T0 3: PAUSE 


25:Y=100T»10U+V 


6:A<P)=0: 




"TU N fiS PAS 


30: IF Y<=ft(P> 


NEXT P 




JOUE": NEXT 


LET Q=P 


590: INPUT "GUI C 




Z 


50: NEXT P 


OMMEICE.TOI 


931 


GOTO 150 


125:G0SUB 1 


OU M0I?".S* 


950 


BEEP l: PAUSE 


128:0=Q-7:X=A<0> 


591: IF S*="M" 




"ERREUR.RECO 


-Y:A<0)=Y 


GOTO 150 




11MENCE S.V.P 


140: BEEP 1: PRINT 


600: FOR P=1T0 7 




.":G0T0 150 


"TAS "ia»"«« 


602: FOR Z=27T0 4 


990 


BEEP l:F0R Z 


OTE "iXi"**R 


1STEP 2 




■1T0 4: PAUSE 


ESTE ">Y 


603: IF A<Z>=A<P> 




a;b;c;b;e;f; 


141: IF R=6LET W= 


LET A<P+7>=>A 




G:NEXT Z 


l:G0T0 171 


CZ+1) 


991 


RETURN 


145:G0SUB 990 


604: NEXT Z 


995 


INPUT "ENCOR 


150:Z=0:P=0: 


605: NEXT P 




E UNE PARTIE 


INPUT "A TOI 


608:W=H+I+J+K+L+ 




?"!S$ 


iOUEL TAS?"! 


M+N 


996 


IF S*="0" 


Z 


610:T=INT CW/100 




GOTO "A" 


160: INPUT "COMBI 


:U=INT <<W-1 


997 


PRINT "SALUT 


EN OTES-TU?" 


O0T)/10:V=U- 




»A LA PROCHA 


;p 


100T-10U 




INE" ■ 



FRACTIONS 



Programme educatif? Etes-vous sur de savoir com- 
bien font 12 + 6 - 14 ? 

5 8 7 
Multiplication, division, addition, soustraction de frac- 
tions et multiplication du resultat. 

Olivier FRANCE 



?C 



A500 



concicc dc omcNSfj* 



E3 



E3 



- 



5:REM - 

ICflTl 

N DIU 

STRAI 

FRACT 

10: CLEAR 

15: TEXT 

20:CSIZE 

30: INPUT 

31 : INPUT 

32: INPUT 

33: INPUT 

0=B2 
34: INPUT 

ifl* 
35:G0SUB 
10 



--nULTIPL 
ON ADITIO 
ISION SOU 
ION DE 2 
IONS 

: COLOR 
1 

"Ar'iAl 
"A2";A2 
"B1";B1 
"B2";B2: 

"SI6NE " 



!00:REH — REOUCTI 
ON NENE DEN0M1 
NATEUR 

104: IF ft*-'V"G0T0 

see 

105: IF A*=": "GOTO 

500 
106: IF A*="*"G0T0 

600 
110:U1=A1*B2 
111! U2=A2*B2 
112:U1=B1*A2 
113:U2=B2*A2 
115:TEXT :LF 2 
1I8:A1=U1:A2=U2:B1 

=Ul:B2=U2 
120:GOSUB 4000: 

GOTO 200 
200: IF A*="+"G0T0 

10000 
210: IF A*="-"G0T0 

10020 
500:A*="*":B2=B1:B 

1=0: TEXT :LF 2 

:G0SUB 4000: 

GOTO 600 
600:Sl=fll*Bl:S2=A2 

*B2:G0SUB 2000 

0:GOTO 10100 
4000:CSIZE l: 

LPRINT Al; " 
"JB1 
4S00:LPRINT " 
";0*;" 

5000: LPRINT A2; " 
";B2 

6000: GRAPH : 

GLCURSOR C2, 
23):LINE C2, 
23)-<)6, 23> 

2000: GLCURSOR (33 
, 23KL1NE C3 
3, 23)-(48, 23 



2500: TEXT : RETURN 

10000:REN -ADIT10N 

OES 2 FRACT 

IONS 

10010:S1=A1+B1 :S2^-- 

A2:G0SUB 200 

00:GOTO 1010 


10020:S1=A1-B1:S2= 

A2:G0SUB 2B0 

00:GOTO 1010 


!0100:WAIT 0:FOR I 

=50TO 2STEP 

-1 
10200:Q1-'S1/I :Q2-S 

2x1 : P1=Q1- 

INT Ql:P2=02 

-INT Q2 
10300: IF (P1=0) 

GOSUB 20500 
10400:NEXT I 
10500: GOTO 28000 
20000: TEXT :CS!ZE 

l: TEXT :LF 2 
20001:CSIZE 1: 

LPRINT " 

!S1 




:.tiilr /i.i'/'' I.' 



\tf> 



MORSE 



Amis qui souhaitez apprendre le code Morse et vous 
entrainer a son ecoute aussi bien qu'a son emission, 
que vous soyez radio-amateurs, aviateurs, marins, milt- 
taires {c'est bien connu : les morses ne manquent pas 
de defense.) ou sirnplement curieux, ce programme 
est pour vous. 

Vous apprendrez d'abord a quoi ressemble chaque 
lettre et chaque chiffre du code Morse sonore. Ecou- 
tez tout votre saofll, penetrez-vous-en avec le module 
"EntraTnement a I'ecoute du Morse" (7 vitesses). 
Quel que soit votre niveau en Morse, vous pourrez a 
tout moment le verifier avec le module "Test de vos 
capacites en Morse"" puisqu'il offre le choix du niveau 
de difficulty. Vous aurez a reconnaitre successivement 
10 caracteres choisis dans une fourchette de 2 a 36 
signes (7 vitesses). Vous avez 10 essais pour recon- 
nattre chaque caractere entendu. Selon vos reponses, 
vous obtenez 2 notes sur 20 dont I'une tient compte du 
degre de difficulty choisi. 

Avec le module "Pratique de remission Morse", vous 
pourrez manipuler comme un vrai telegraphiste et 
tester la regularity de votre emission. Vous aurez 
d'abord a emettre 5 points pour que la machine s'habi- 
tue a votre vitesse (a chacun son rythme. n'est-ce 
pas ?). Toutes les indications utiles sont a I'ecran. 

Bon apprentissage et amusez-vous bien... 

Signe : DADA.DIDIDI 
alias Michel STERMANN 



1 REM ••••■■•■•■••■■■-••■••••■■«— »fl-«i.»n nl*»itii»iti»it »»■»■(()> r»«H»mt!<»iitt*ni«9imintt< 

2 REM -■«»»• PROGRAMME 5.0. S. »•*. Michel STERMANN Una a «■■■**• JANV. 1992 ■» 

S REM «■»«•■ ■•■••».»»m.«Jt«»»»«ll-»>.--.lll-lt»»««»>H.B»llH»)l»tB»Blt«HJIO»iHII>»ttllBU«»»>lll 

4 REM 

10 DIM M*(233).M(90) 

19 REM CODES MORSE SONCRES (CHAINES MUSICALES) 

20 M*(63)»" — AlFn»4" 

30 M» (66>-"~ A4R1-A1R-AR-A" 

40 M*(67)= H- A4Rl - AR - A4Rn»" 

30 «<68t* , '* , A4RI^0RTi" 



60 




40 r 



(69) = 



70 rt*I70>-"~AlR~AR~A4Rl-A" 

ao m»(7ii3--a-;ri-a«ri-a- 

90 M*(72>= — AIR-ARTIR-A" 
10O M*(73)-" - AIP-A" 
110 M*(74>»" - AiR - A4R1 - A4R1 
120 M*(73» = "-A4R|-AR-la4 
130 H»(76>- — AIR-AIR: 




■ COOES MORSE NUMERIDUES 



130 M»(7B)---A4R1-, 

14,0 M*(79>- — A4R1-A4R1-A4" 

170 n»ieOI = - _ AlR-A4RI - A4Rl - A" 

180 M*(8I>- — B4R1-A4R1-AR-A4" 

190 M*(B2^■"-■A1R - A4R1-A' , 

20O M*(B3>- — A1R-AR.T*- 

210 M«IB4)- — A4" 

220 M*(B3)- — ^AIR-AR-A4" 

230 M*(B6)-" - AlR - AR-AR~A4" 

240 M»(B7>« — A1R^A4RI~A4" 

230 M*(B8)- — A4R1-ARTWTT»4" 

233 Ms(B9)- — ^A4R1-AR^04RI-A4" 

26© M*(90)*="^A4R1 - A4R1-AR — A" 

270 M*(32)»"R4" 

290 REM CHIFFRES 

290 M«(4S)--^A4R1^A4R1 _ A4RI - A4R1-A4- 
300 M*(49>- — A1R-A4R1-A4R1-04RI-A4" 
3IO M»(30)-" - AlR - AR^A4RI - A4Rl _ A4~ 
320 M*(51)-"^AIR - AR - AR — MR]"A4" 
330 M*(32>-"~A1R — AR — AR - AR~A4" 
3*0 M»(53>- — ^A1R-AR-AR-AR-A- 
330 M«<34)»"TA4R1-AR-AR-AR - A- 
340 M»(53)-" - A4Rl - A4Rl-AR-AR-A-' 
370 M*(3A)- — A4RI^R4Rl _ A4RI - Afi~A." 
3BO M»(37)- ,, ~A4R1 — A*RI - A4R1-A4R1"A" 

399 REM 

4CO RESTOREtFOR 1-38 TO 64:M( I > -3i NEXT 

410 FDR 1-48 TO 37IREAD MU):NEXT 

420 FOR 1-63 TO 90IREAD M(I)INEXT 

430 DATA 22222, 12222, 11222, 1 1 122. 1 1 1 12, 1 1 1 11,21111,22111.22211,22221 

440 DATA 12,2111,2121,211.1,1121,221,1111,11.1222,212.1211.22,21.222.1221 

430 DATA 2212,121,111,2,112,1112,122,2112.2122,2211 

499 REM ■ MENU 

300 PRINT "B~:CURSOR 10, O: PRINT"Program*ie S.O.S." 

303 TEMPO 71MUSIC M« (83) , M* (32) . M* (79) , M* (32) ,M* <B3) O 

310 CURSOR 13.4IPRINT "MENU" 

320 CURSOR 1, 101PR1NT"E - Entr. 

330 CURSOR 1.12iPRINT"T - Tost 

333 CURSOR 1.14iPRINT"P - Prat: 

340 CURSOR I. 16:PRINT"F - FIN" 

330 CURSOR 7,23:PRINT"T*per 1* CODE choisl..."! 

360 G0SU8 10000 

370 IF Y*-"E" SOTO 10O0 

380 IF Y*-"T" GOTO 20O0 

390 IF Y»-"F" QOTO 900 

600 IF Y»-"P" GOTO 3000 

610 U9R(62>IU9R(62>:G0T0 360IREM BIP BIP SI MAUVAISE TOUCHE 

899 REM FIN 

900 PRINT"BS.O.S. est I Ink . |MT I TEMPO 7 

910 MUSIC H*(B3>.M*(32I ,M»(79> ,M* (32) , M* (83) : REM SOS 
920 END , 

7<j 9 REH ENTRAINEMENT 

1000 PRINT' , H"«CURSQR 3, 1 fPRINT"Entrelnement » I'ecoute du MORSE" 

1010 CURSOR 0,7:PRINT"Je vai* vous faire entendre les lettres" 

1020 CURSOR 0,9:PRlNT"et les chlffres que vous taperez." 

1030 CURSOR O, I3'PRINT"Choistr une vl tease d'execut Ion" 

1040 CURSOR 0, 13:PRINT"entre 1 (debutant) et 7 (prof esslonnel > " 

1030 USR(62)tREM BIP1 

1060 GOSUB IOOOOiY-VALIY*): IF (Y<1)»(Y>7) Gi 

1070 TEMPO YiGURSOR 0.13:PRINT SPACE»U60)t 

1073 CURSOR 10,4lPRINT"vi te**e >"|V 

108O CURSOR 0, 13:PRINT"Votre lettre ou eM * 

1090 GOSUB 10000: IF y»-"T" GOTO 300 

llOO PRINT V»I*MUSIC M* (A9C ( Y*> ) iGOTO 1090 

1999 REM 

2000 PRINT"8J">CURSCR 7. OiPRINT"Te*t de capa 
2010 CURSOR 7.3iPRINT"Je vals vou» falre en 
2020 CURSOR 3.7IPRINT"10 caracteres MORSE P 
2030 CURSOR 4 , 9: PRINT'fourchette determine* 
2040 CURSOR O, I3i PRINT "Choi «1 r une vt tesse 
2030 CURSOR 0.13iPRINT"entre 1 Id-lwUnll e 
2060 USR(62)!REM B1PI 

2070 GOSUB 10000iV-VAI.(V«) HF (Y<1)MV>7> GOTO 2060 
2073 TP-YI TEMPO TP 

2080 PRlNT"B"iCURSOR 7, OiPRINT"Teet de capacltes *n HOI 
2090 CURSOR 0,2' PRINT" ICAR. fESSAI I TOTAL IMOYEN IPONDERE I' 



a I'ecoute du MORSE" 
capacites en MORSE" 
1 'emission MORSE" 




1 03O 



i FIN) 



tes en MORSE" 



TEST 



7 (Pro 



OO CURSOR 0. 



! PRINT' 



CURSOR 0,3tPRINT-| 1 1 1 ! 1 1" 

70 CURSOR 0.4IPRINT" I 1111 

30 CURSOR 0.5iPRJNT"« ' ■ * ■ ' ' 

40 CURSOR 33.4JPRIMT TP 

30 CURSOR 13(6 I PRINT". ." 

60 CURSOR 13,7 (PRINT" IFOURCMETTE I" 

70 CURSOR 13. B tFRINT" | 1" 

75 CURSOR 13,9 IPRINT" | |- 

BO CURSOR 13. 10IFRINT" « '" 

2190 CURSOR O, 13: PR1NT"DE8UT de la fourchette l(H VI > "I 

2200 GOSUB lOOOOi IF ( Yt<"0" ' » ( Y«>"Y- ) THEN 2270 

22IO IF (Y»<-"9")+(Y»>-"A"l GOTO 2230 

2220 USR(62HG0TO 2200 

2230 Fls-Y»iCURSOR 16,9 iPRINT Fl»(~ ■* *| 

2240 CURSOR O, 131 PR I NT "FIN -;: CURSOR 24, 15: IF Fl«»"9" THEN PR I NT" A": GOTO 2260 

2250 PRINT CHR»(ASCIF1«>*1 ) j 

2260 PRINT- 4 I"l 

2270 GOSUB 10000: IF (V*< -F 1 *) * IM» (ASC(Y«) )="") THEN USR(62)tGOTO 7T7C 

2280 F2»=Y»:CURSOR 20,9 JPRINT F2»! 

2290 CURSOR 0,15:PRINT SPACE»(40U 

2300 CURSOR 0, 1 1 :PRINT"CODES I" 

2310 CURSOR 0, 13:PRINT"E9PACE - reecouter - 

2313 CURSOR 5. 131PRINT"? = vou* ne trouvei; p»s" 

2320 CURSOR 3. 17iPRINT"a = abandon" 

2330 F-ASC(F2«)-ASC1FI») 

2340 IF tFl«< = "9"H<F2»>»"A") THEM F-F-7 

2350 TT-0:HO-Q!PO-0:GOSUB 110OO 

240O FOR C-l TO 10 

2410 FX»ASC(F2«)-ASC(Fl»l»l 

2420 X=FXIRNDI1)*ASC(FI«) : IF M»!X>=" GOTO 2420 

2430 X»=CHR*(X) 

2430 FOR E=l TO 10 

2460 GOSUB 16000 

2480 ES=ls GDSU8 12000 

2490 CURSOR 0.20:PRINT"Votre reponse :" J SPACE* (26U : GOSUB 10OO0:R»»Y« 

2500 IF R«=" " GOSUB 130O0:G0TO 2490 

2310 IF R»»"»" GOTO 500 

2520 IF RS-"?"GOSUB 1700OIGOT0 2590 

2550 IF(Rs<FI«)*(R»>F2«)*(M»(ASC(R»)>-"")GOSUB 13O0O>6OT0 2490 

2555 P-ll-E 

2560 MUSIC M»(A5C(R»)>: IF RS'X* THEN E"10:GOSU8 IBOOOtGOTO 2390 

2370 CURSOR O. 20: PRINT'FAUX >"; SPACE* (35) :: G05U6 140OO 

2590 NEXT E 

2600 TT=TT»PiMO-TT/C 

2610 W=FI(. 5/35)+. 5:W=W«(TP* (.5/7)+. 5) :PO-MOtM: REM PONDERATIDN ET MOYENNE 

2620 GOSUB 1 1OO0 

2630 NEXT C 

2700 CURSOR O.61PRINT SPACE* (255) ! SPACE* (255) ; SPACE* ( 133) 

2710 CURSOR O, 10:PRINT"Volcl votre note" 

2720 CURSOR 0, 12:PRINT"ab50lu<? *ur 10 '" 

2730 CURSOR 20. 14:PRINT , 'Vof ci votre note" 

2740 CURSOR 20. 16iPRINT"ponderee en fonction" 

2750 CURSOR 20. 19: PRINT"de la dif-ficulte" 

2760 F0RI=7 TO 1 1 : CURSOR 19, I IPRINT" t":NEXT: CURSOR 19,6:PRINT"« 

2770 FORI-7 TO 13:CURS0R 26. I iPRINT" I"tNEXT 

2790 CURSOR O, 23: PRINT"Pres6er une touche .ipres lecture..."! 

2790 GOSUB 1OO001G0T0 3O0 

4999 REM EMISSION 

5000 PRINT"H":CURSOR 5, 1 1 PRINT "PRAT I OUE DE L'EMISSION MORSE" 
5010 CURSOR 3.4:pRINT"Wous *lles pouvoir vous exercer a la" 
3020 CURSOR 0. A: PRINT"manli 
5030 CURSOR O.B: PRINT"che 1 
3040 CURSOR 0. 12:PRINT"Poui 
5050 PRINT.'PRINT-Bijnipulat 
5060 PRINT :PRINT"3 points 
3070 POKE •11A1.*00!POKE « 
SOBO P-OiREM DUREE 



re 5 en MORSE). ■ 

04:REM FREQUENCE DU SON A EMETTRE 

I FRONTIERS POlNT/TRAIT:F0ft 1-1 TO 5 
5-OiGOSUB 200O01P-P+MINEXT UPT-P/2.3 



: IF LEN(C*)-:5 GOTO 3300 



S/P GET 1 TOUCHE AVEC ATTENTE 



■REM MUS./SILENC:GDSUB 2( 
3100 CURSOR 0.12:PRINT SPACE*(255)t 
3110 CURSOR 0,12:PRINT "Manipuler. J' 
3120 PRINT"je reconnais :") 
3200 C*""":GET Y*: IF Y*-"" GOTO 3200 
3210 M-OiS=l:GOSUB 20000 
3220 IF S>2*PT GOTO 3300 
3230 S"0!M-l:GOSUB 20000 
3240 C*-C»+5TR*( (M<PT)+2 
3230 GOTO 3210 

5300 C-VALIC*) :A*-"' i !PRINT" C" ; 
5310 FOR 1-48 TO 90 
3320 IF C-MU) THEN A*-CHR»(I): 
5340 NEXT: IF A*-;"" THEN A«-"7- 
3330 PRINT A»t"B"I 
3360 GOTO 3200 

9?99 REM 

10000 GET Y*:IF Y*-"-GOTO 10000 
I 0010 RETURN 

10999 REM S/P AFFICHAGE SCORE 

11000 CURSOR 12.4SPR1NT" BJUJ" ;STR» ( TT) 1 
11010 CURSOR 18.4:PRINT" BECCG" : 

11020 M0»INT(I0»M0)/10:PRINT STRKMO) ; 
11030 CURSOR 24,4:PRINT" (XEZXZ2S" I 
11040 F0-INT(IO»FO)/10:PRINT STR*(PO>: 
tlOSO RETURM 

11999 REM S/P AUDITION X* 

12000 CURSOR 0.20:FRINT"£C0UTEZ.. . "I SPACE* (30) I 
12010 MUSIC M*(ASC(X*)) 

12020 RETURN 

12999 REM S/P IMPOSSIBLE 

13000 CURSOR 0,20iPRINT"H0RS FOURCHETTE I" iSPACE* (22) ;: GOSUB 140001RETURN 

13999 REM DEl.ru 

14000 FORI-1 TO 300!NEXTI:RETURN 

14999 REM S/P REAUDITION 

13OO0 ES-ES+1 

13010 CURSOR 0,20:PRINT"REEC0UTE2. . ."! SPACE* (25) I 
13020 IF ES>3 THEN CURSOR 20. 20= PRINT" ( 1 essai pen 
13030 MUSIC M*(X)iG0SU8 I6OOO1RETURN 

15999 REM S/P AFFICH N«s 

16000 CUR50R 1.4:PRINT" OS" I STR* (C) ; 
I60I0 CURSOR 6,4'PRINT" SS*" I STR* (E) I 
16020 RETURN 

16999 REM B/T "?" 

17000 CURSOR 0,20iPRINT"C*etait : "i X»l SPACE* (30) I 
17010 MUSIC M*(X) tP-OiE-10 

17020 GOSUB 14000 
17030 RETURN 

17999 REM S/P "BIEN" 

1B00O CURSOR 0.20>PRINT"OUI, c'sst bien " ! X*( " I" I SPACE* (30) I 
1B010 GOSUB 14000 
18020 RETURN 

19999 REM S/P SCRUTAT10N ET COMPTAOE 

20000 GET Y*i IF Y«-"7" THEN USR(*0047) t GOTO 300SREM ARRET DU SON ET SORTIE 
20010 IF Y*-"" THEN S-S+-HGOT0 201001REM PAS DE SON 

20020 M-M+HGOTO 20200tREM COMPTEUR LONOUEUR DE SON 

20100 IF M THEN USR (*0047) : RETURN: REM ARRET DU SON - TOUCHE NDUVELLEMT LACHEE 

20110 IF SX2*PT)THEN RETURN 

20120 GOTO 20000IATTENTE D'UN CHANOEMENT AU CLAVIER 

20200 IF S THEN USR (»0O44) : RETURN: DEPART DU SON - TOUCHE NOUVELLEMENT PRESSEE 

20210 GOTO 20000 



tE-E+HES-1 
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0RIC1 



I7M It ■ i 
■-". -:-n*i 

■ ■ i "■■■ 

..-.-]," r 0R ft-37Qlt TO J7871 

■ <i.WH)'\Zf> TNEH "OKI "-11169. 126 

-»?038 ME XT 

j?e*9 poke we?i»iiise.68 

1703A POKE ?mP*lUW,fi3 

17860 POKE J* 1 11*8.42 
17079 WIT 1080 

HIRES 'CUR*ETffl.»>0'»ILUM. I : ■ ■' 
• 7B99 GOTO I.MS 

■■-.-. tiMI FKIMl PRINT PR1N1 '-'i 1 
J71I9 PRIHT-DESOLE. VOUS L'm 

■ ■ .HI 400 
1713" GOTO 37BM 



ACHAT 

DE VOITURE 



Choisissez votre prochaine voiture en toute connais- 
sancede cause : tout est prevu.du nombrede portesa 
I'implantation des concessionnaires. en passant par la 
tenue de route, la garantie anti-corrosion et les vide- 
poches de portieres. 

L'option 1 definit les caracteristiques ideales du vehi- 
cule recherche. L'option 2 permet d'entrer vos appre- 
ciations sur la voiture que vous testez. L'option 3 fait le 
tri des criteres et attribue les notes par rubrique, vous 1 
pouvez ainsi avoir un classement par note globale. par 
equipement, par carrosserie. par technique, conduite 
et prix. L'option 4 rappelle les notes globales de chaque 
voiture etudiee. 



\? 



.* 



i -: iPle :•-_ z:_:: 
:: -..~ n s~i 

i~ . - : i !£NT 31/46 

:~ : :::£-:e ;: '30 

'=:-■::. i ;; j: 
::•;.:" z-:. 35 48 

N0T£ -:=S-==: 17.71/29 

s :~= :_::-_£ ::.s5/29 

D l.}£:~ 795 7$ 

i:.:-i :.- :; 43 
-- z ::i:i :-. 38 

"£: — ::.£ :: 30 

-■ ~-.'i 34.28/dQ 

•*07£ -:=:-=--; :e. 23/23 

>'0T£ ;_::-_£ ;?.:- 20 

:--i :: --__-; 

=:■.;-£ ■■£■•' *8 «s 
:- : ::££ : :£ :: 10 

"£>■-! .' . 1 22/35 

c:--:.:*£ 34.57/40 
■:"£ -::£-—; . i2 :: 

«0T£ GuC2rt^E ;?/23 



J.-F. CHAPIN 

\0"£/=:. :-£"■■£'-" 

CITROEN :: PALLAS 40 

: '£,;£C- 705 73 32 
RENAULT 17 GTI 31 



:~£ ; — :i:£-;£ 

'-£-__" n 5TI 21 

:-:i z: pallAS 21 

PEUGEOT 785 



: '£.}£r 7@5 "S 22 
RENAULT 17 GTI 22 

cnaoEN :z -al_as 22 

■ :"£'■::*-: : . ; - £ 

-"-"E-- ZZ PALLAS34 
3 EUG£0T 7-2-5 TS34 
RENAULT 17 GTI3@ 




;s:;*3: ps»lin = ":-t : 
MIT 48: P3INT 'SOUH 

a::EZ-vous": psint • 
u> :£r[«:p L-I3EW. 

IJiWtMT *<2) D£C?1»E 

H ES5A;-: «WI '(3) 

---.-■> l£S ESSaiS 

23:?B!hT '(4) DM =;«£l 

3£5 E5Sa;S": MIMT 

■C51 FUtM 

2;:IMPUT 'QPTIBM l->3 • 



I39:NEXT I:C(Hil)-Li 

53SUI 999 
!55:l>8iK-8: INPUT *NB P 

09TES "iK 
269: IF '-'2 Of! m GOTO 1 



S5 

26SIK- BS5 (C-K 



K-5-K 



S3:; 



B<! OB »>5 GOTO 2 

(iff ~=5 EHJ 
»:0H a GOTO lSa.293.S3 
Bf«M 

3:CL£flfl : INPUT •«) PO 
BTES -:g 

5: IF 1X2 OB G>5 GOTO 1 

38 
9:IMPUT -PUISSSKCE FIJ 

CSLE 'iS 
5! INPUT -B0IT£ * OU 3 

•JC 
3! IF C<* OR OS GOTO 1 

15 
S:1M»U7 *C0»SO. ft 98 K 

IVH *JD 
?: IM = 'JT 'LONGUEUR mm 

<CB) *iE 
SilNPUT 'P8IX MX! -if 

I GOTO 19 
3:P?INT "KB DE VOITUSE 

S DEW: Input "E« n 

EHQTRE1H 
5: IF H GOTO 215 
aiDln 3«UB>»21.CUB.S 

>.3t<9).;i 
itiun 1 mniT •mmn 

0NT£.l *iUi IF U 
PRBIT • LPPIMT 
DlNPin 'IWKHE t "ODE 
LE ■!»<*>: PRINT Et 

5!PEST0P£ ■£ 

9:L*0: FOR 1*1 TO 2fl> 

Real D*(*)f/l Pfl'JSE 

HttJI' 1 

5iK*«"i INPUT '(O/M) 

8: IF ftSC **<78 01 

<l>79 GOTO 253 

JHF ft3C K«»T9 LET 



279:<I=": [HPUT *70IT 
UVRANT «3/N) ■;«! 

2T3!IF flSC *«T8 OR ASC 
<t>7? GOTO 279 

289: i? (SSC «**79 LET L-l. 



293 



293! 



■ =?: ;-,;j; - 6 mnE£3 ft 

nt;-copposkw *ik 
L«i+Kilt««i [WOI *LD 

ngieip tcn> •;< 

•">£ L£T * 



-E»/2«l! 



:. = L-- 



BSC 



388:v»a: INPUT 'ESTHETIB 

U£ C9-J2B) "H(:it-</2 
ja5:L'L*<riC!H.;irt: 

G03LE 933 
HflsL-ftK-fll INPUT '30IT 

E * OU 5 'IK 
313: IF K<< OP Ki% GOTO 3 

II 
329HF K«C LET L -L'< 
32S:'*a: INPUT 'PUISSflMC 

E FISCflLE 'iK 
339:*" IBS t(3-K)«2):<.I 

8-<:L'L«i« 
llV-'--V. HffUT *C0NS0. fl 

3«9:>:- flJS ((D-i!).2>iK-l 

9-K:l«L'< 
M5'K*»"i INPUT 'NONJPE 

UM dGENTS (0/N) 'id 

ssarir fisc »;«(7a or bsc 

K«>79 GOTO 3«5 
335: IF ftSC K»«79 LET L-L 

*S 
369::iM.3l-Lr G0SU8 918 
I6S:Pt5T0»£ 'C 
I7a:L'9: FOR !■! TO 7i 

READ 3f(B): PAUSE Dt 

(#) 
373:^.-ir INPUT '(9->2e> 

S83HF f.'i OR X)23 GOTO 



'.:> 



:FQff 1-1 TO *:C(H,5)« 
CCM.3)*C(Hil>: NEXT 
I:C(N.3)>C(H,5V7: 
GOSU1 929 
¥»8: 2=9 

INPUT 'PRIX 'ir:X=<P 
-Z)'E5:r.l9 
IF Z)F LET v=ft)( 
IF 2<F LET Y-Y»X 
C<H.8)'(T«C<H.S))/2: 
GOSUB 9231 GOTO 18 
r—il PRIHT 'NOTE S. 
OSOLE'S': PRINT 'EOU 
IPEKENT'I': PRINT *C 
«R0SS£PIE*2 - : PRINT 
•TECHMIOUE-J 
PRINT 'CONBUITE'4*: 
PRINT 'MOTE NORS-PRI 
X«3-: INPUT 'OPriON 
B-)5 *)« 
IF «B OR KJ5 GOTO 3 



5:5:U=IT : INPUT MHPRIN 

OHTE-I -iU: [F U 

PRINT * LPRINT 
32fl=INPUT 'H3 VOITuRES ft 

COtPUREH *in 
3:S:F0R N-9 TO N-H FOR 

0-N*l TO n-i 
SiBUF C!N.X))C(O.K! 

GOTO 343 
335SF0R R-B TO 5:P-C<N,R 

HC(M.R)-C<O.R):C(0. 

R)«P: NEXT R:B»<8)"J 

«<N)i)*(N>»»(0) 
348:B*C0>*31(9> 
343SNEXT Qi NEXT M 
3381F0R 1-8 TO B-H 

PRINT 8»U>S USING • 

JIJ'ICdiKJi NEXT I< 

GOTO 19 
S89:HftIT ! INPUT MNPR1N 

FtHTE-I -IUI IF U 

PRINT - LPRINI 
S83:F0R M«8 TO IB 
*19:|F Jf(H)-" LET H.iS 

■ GOTO 623 
SlJiPRINT ItCN) 
628IG0SU1 988: G03UI 9«3 

< G0SU3 9I9> C0SU1 t 

131 GO'.iJJ ■)}»: GOSUt 

923 
SJ!:H£XT Hi UAIT 81 

PPInT ": GOTO IB 
889: •£• DOTft "DEGIVSI10E 



aR.-.:.-Ffi=F-3PisE f 

EUILLETE-,3.'VITPES 
TelHTEESM 

3911 DATA 'ESSUIE-GLAOE A 
R.'.I.'P-U DE R£CUL- 
•3. -FEU DE BROUILLOP 
D' .2. -JPPJIi-Ttit-.i 

382:DATA TI0NTR£'.2,*C0« 
PTEUR JOUPNOLIER".;. 
■THERHO. B»EAU*.1.'C 
ONSOLE CENTRSLE".2 

aeS:DATA -VIDE-POCHES PO 
RTES-.2.-SP0T LECTUR 
E'.l.'VITRES ELECTRI 
0UES-i2 

984: DATA ■ALLUflE-CIGORE- 
•:.*CLE Dc BOITE 6 G 
aNTS-.I.'SIEGES-COUC 
HET7E*.3 

9851D07A "PLAGE flSRIEBE' 
r3. 'SIEGES «». PAR 1 
'2'.2.'C0FFRE REMOTE 

BBSi'C" QftTft 'BlRECTfOtt' 

••FREINS'.'CONHOmDE 
SOlTE-.'iUSPEHSION'. 
•SIEGES' 
887:DATft TENUE DE ROUTE 
'.-POSITION COHDUltE 



980: 



PRINT "EOUIPEHEn; 'I 

STRt C(H,l)f*/4e>; 

RETURN 

PRINT 'CAROSSERIE '! 

STRt C(H.2)f/39'i 

RETURN 

PRINT 'TECHNIOUE ■: 

STRI C<H.3>iVJ9*s 

RETURN 

PRINT 'CONDUITE'I 

USING 'III.II*;C(H.4 

)i'/4B': RETURN 

PRINT 'NOTE HORS-P"! 

X'iC(N.S>iV29'I 

RETURN 

PRINT 'NOTE GLOBULE' 

IC<H,8>i*/28': WAIT 

8: PRINT "I UAIT I 

RETURN 



suite de la page 10 




20002:CSI2E IS 

LPRINT " " 

20803: CSIZE i: 
LPRJNT " 

;S2 

20004: GRAPH ; 

GLCURSOR (15 

,23):LINE -(. 

15, 23)-(45, 2 

3) 
20005: RETURN 



20500: IF (P2-0JLET 
SI=Ql:S2=Q2: 
GOSUB 20000: 
GOTO 20600 

20600: IF S2=IG0T0 
20200 

20601:RETURN 

20200: TEXT :CSIZE 
l:LF 5: 
LPRJNT " =>" 
;S1:G0T0 280 
05 

2G000: COLOR 3: 
GRAPH 

28001: GLCURSOR (0, 
-20):LINE (0 
, -20)-C55, -2 
0J-C55, 25) 



28002: GLCURSOR (0, 
-20):LJNE C0 
, -20)-C0, 25) 
-<55,2S>: 
TEXT :LF 3: 
END 

28085: GRAPH : COLOR 
3 

28006: GLCURSOR (0, 
0>:LINE -C0, 
0)-(35,00>-C 
35, 25)-C0, 25 
>-C0, 0):TEXT 
:LF 2: END - 



STATUS 0-192 



TOUR DE HANOI' 



Unelegendeorien tale dit que Dieu est en t rain dejouer 
avec des Tours de Hanoi' de 64 disques. Quand tl aura 
termine, ce sera la fin du monde ! Rassurez-vous. il lui 
faudra 355 milliards de siecles pour finir son jeu ! 
Cela nous laisse le temps de nous debattre, plus 
modestement, avec les 3. 4, 5 ou 6 disques de ce pro 
gramme. Et ce n'est deja pas si facile ! 



CTflUM 



IB REM 
2Q REM 
O0 REM _ 

iea oo su . 

120 PRINT 
130 PRINT 

reg les du 

14.0 INPUT 
ISO CL.S 
160 IF rS( 
S5B 

178 PRINT 



Mw*i»¥3 «r-M.a;»:i=ing 



THEN GO SUB 60 



i =1 TO 



i TO 1 STEP 



disque boug 



230 LET _ - 

2*0 let a-ais- 

250 FDR " 

?&0 LET 3 l[,u = J 

SVe LET d=d-2 

2SB LET C=C-a 

29B NE:<T i 

300 GO SUB U.0O0 

310 PRINT , , , , "<iue I 

e ?■■ 

320 INPUT d 

330 2F df>99 THEN GO TO 360 

34.0 print "vous avez jouc ";cou 
p; •■ ;pjs . - 

360 IF d(l OR d>diS- THEN PRINT 
" erreur ! " ; GO SUB 7000: GO TO 

365 GO SUB 710B 

370 LETT d=d+d+l 

3B0 FDR i =1 TO d i £ 

390 FOR j=l TO 3 

400 IF a(i,J>-d THEN GO TO 430 

4.10 NEXT j 

4.20 NEXT i 

4.30 FOR e=i TO 1 STEP -1 

4-4.0 IF »lt,jj=B THEN GO TO 4,60 

4-S0 IF d(e,J)<rd THEN GO TO d-OO 

460 NEXT e 

470 GO TO 510 

480 PRINT "iDuveient interdit .' 

4-90 GO SUB 7000 
500 GO TO 310 
510 PRINT 



4010 CL3 

4020 FOR 

4030 LET X=S 

404.0 FOR j=l T 

40S0 IF a (i , J) 

4060 PRINT TOB _. 

4070 FOR k=l TO a 1 

4075 INK 2 

40B0 PRINT "a"; 

4O90 NEXT K 

4100 GO TO 4120 

4110 INK 4 

411S PRINT TOB Z ; "' 

4120 LET Z=Z+10 

4 130 NEXT J 

4140 PRINT 

4150 NEXT i 

4299 INK 

4300 RETURN 
4999 STOP 



5001 REM 
I5Qi3 2 REM , 
50O5 FOR 



THEN GO TO 4110 



TO 7 



S010 POKE U5R 

S020 NEXT r> 

S030 POKE U5R "b",C 

504O POKE USR "b"+7 

5050 POKE USR "b"*6 

5060 POKE USR "b"*! 

5070 TOR n=3- TO S 

5O80 POKE USR "b"+n 

5090 NEXT n 

5100 CLS 

5500 PRINT TOB 10; " 

S510 PRINT TRB IS; " 

5520 PRINT TOB 12;" 

5530 INK 

5600 RETU RN 

6000 REM | 



.BIN 00010000 



.BIN 10OOO001 



6010 PRINT " 

Les d i s qua ft 
vers l « 



6011 PRINT 



"vous choisissez 
disques de 3 a 

6015 PRINT , ,"U& 



us les di s-iugs so 
le piquet de droi 



O TO 570 
540 print "defen 
550 GO SUB 7000 
560 GO TO 510 
57D GO SUB 7100 
S30 FOR i =1 TO d 
S90 IF ali,b«t)< 



630 PRINT "P3S 






P > qv e t 
THEN G 



THEN GO TO 6 



THEN GO TO 66 

Gtrand di.'.que 



6, les pi quels d 



6016 PRINT 



6200 RETURN 



?000 REM M^_ 

REM ■ SONQRI5HTION 



640 GO SUB 7O00 



700 IF a 

710 NEXT 

720 NEXT _ 

740 FOR W=l TO 

750 IF 3 ' 



=d THEN GO TO 740 



7002 REM 

7010 FOR i=l TO 20 

7020 BEEP .1,35-i 

7030 NEXT i 

7099 RETURN 

7100 BEEP 
7110 BEEP . 
7199 RETURN 

9500 BEEP 

9501 BEEP 

9502 BEEP 
9510 FOR 
9520 BEEP 
9530 BEEP 
9550 NEXT _ 
9600 RETURN 



TO IB 



U 1 



THEN GO TO B 



760 NEXT V 

770 LET *=di£ 

7S0 GO TO 810 

600 LET matl-X 

©10 LET s tv , ba 

B30 LET a IU , V) 

340 GO SUB 400 

S60 LET COUP=C 

B70 FOR i "1 TO 

SG0 FOR J=l TO 

S9G IF a tl , J) < 

900 NEXT j 

P3 NEXT i 

920 PRINT "brav 

930 PRINT "VOUS 



B THEN GO TO 310 



THEN CLS ; GO 



970 STOP 

4000 REM | 

40Q1 REM I 

4002 REH | 



m-F- ICrlgiGh PES TOURS , 




dmm 
SHARPENTIER 




ZORG 




Pour une fois. c'est vous qui dtes I'envahlsseur ! 
Seul rescaprS de la (lolle de guerre des ZORGS vous 
devez bombarder TERRAPOLIS, la capilale de la Terre. 
Mais, durement touche. voire altitude baisse de plusen 
plus ct vous risquez de vous ecraser contre les immeu- 
bles de cette maudite ville terrienne. Votre seule 
chance est de raser completement la ville pour y atter- 
rir et reparer votre vaisseau. 

Le vaisseau repare, le bombardement recommence, 
mais les immeubles sont plus hauts. La seule com- 
mande intacte de votre vaisseau est la commande de 
largage des bombes a energie. 

Si lejeu est tropditficile.changez la hauteur initiate des 
immeubles : Memoire H, Ligne 1 . Avant de rejouer.pres- 
ser la touche RUN/STOP puis la touche RESTORE. 

Frederic MELINE 

1 PRINT - :]- • TI*" , '0e9ee0" . V=53248 ' H=6 S*-1800 

2 FORX-0Trj33-FOKV=25-H«IHT(RNDCl)«H)IO24:POKEie24«»ia«V.224:pOKE55236»Xt4e»V.a 

3 NEXT ■ NEXT : fl= 1 9 : V=> 1 : G0SUB39 : S=S+ 1 060 : H=H* 1 

S E2£ V ti 6 ' 8:POKEV * 5 ' v,8 * 5e:FC " B< " nT029:pol '-E , 't4,X«8-H6 (5(1SUE11:HEXT:P0KEV»16.4 

9 F0RX-38T039 : P0KEV*4 . < X-38 Mti : GOSUB 1 1 : NEXT : V=>V+ 1 : 1 FVX4THEN2 

10 POKEV+4-0:f»«9:GOTOe 

11 CETP»:IFR»»- "«NBB=0THENB"1 ■Z'X-t^v 

12 1FB-1THENGOSUB20 

13 IFP£EK<Vt31>»4THEN30 

14 PRlNT"asCORE:";VflL<TI*J+S-RETURN 

20 T*T+ 1 : POKE 1 024+Z+T*40 , 66 : POKE552S6«-2+40*T - 3 : 1 FT>=24THEHD=0 : G0T023 

21 POKE1024tZ»40«(T-l>.32 IFPEEK(1024*Zt40«T*l>)O224THENRETURN 

22 GOSUB40:B=«INT<RNB<1)*<24-T>)+1 :S=S+rj*10 

23 FORI«-ITOD:POKE1024*Z»48»<TtI>.32:NEXT:B«0:POKEV*31.0. RETURN 

30 POKE2042.10.GOSUB40:POKEV*21,0:PRlNT-rMa»i»»»»**««*«*Flll DE JEUMMMW**" 

31 PRINT*)O»»BCORE:"VPL<TU)+S-POKEV+31,0:END 

40 W=54296 1 U»54276 i R=54277 : H=54273 ■ L=54272 

41 FrjRI-13TO0STEP-l:POKEW,I:pGKEU,129:POKER,15 : POKEH,40:pOKEL.200:NEXT 

42 PCKEW,8:pOKEft,0:RETyRH 

50 POKE2042. 13: R0KEV»21 . 4 I P0KEV*4, : P0KEV»5. ! FORN=832T0854 i RERDO - POKEN. c NEXT 

31 P0KE54296. 15:POKE54276,0POKE54276.33:POKE54277, 15:P0KE54278. 128 

32 POKE54272,127:FORn = lT02FORl«-98T038STEP.5:POKE54273,flBS<n:HEXT:HEXT 
53 POKE542?6-0:RETURN 

100 DFITfll-252, ,7,255, ,15- 235, 123. 29, 85- 192- 61, 85. 224, 255, 253, 248. 28- 1,192- 8.- 128 

COMMODORE 64 





CARBOX 



Guidez votre spot vers son boxe darrivee en evitant les 
barrieres aleatoires qui vous empechent de passer. 
Trois niveaux de difficulty : barrieres visibles. barrieres 
apparaissant periodiquement. et barrieres invisibles 

J.-L. RICHETIN 



'^ 



ZX81 



\l 2 


rum flurcun rxchctin >j-l 








1 3 


DIM T ( 9 , 3 ) 




2063 


GOTO 30 


to 


CL5 




2O70 


CLS 


20 


PRINT "UDULEZ -VOL'S LE OESCR 


20S0 


PRINT RT 10,6; "RU REUOIR R 


IPTIF ■?■■ 




OIENTOT" 


S3 


PRINT "ReP 0/N" 




3090 


STOP 


27 


INPUT R* 




:ioeo 


CLS 


29 


IP «*="0" THEM GD5UO 3OO0 


3010 


PRINT "JEU N.l RMEHER UOTRC 


30 


REM 




CRRRE LE " 


31 


PRINT " " 




3020 


PRINT " PLUS RRPIDEM 


3* 


LeT C=0 




ENT POSSIBLE" 


SO 


PRINT "OUEL JEU UOULE2- 


UOUS 


303O 


PRINT " DRN3 LE SOXE 










JRIUEC " 


3S 


PRINT "REPONDEZ 1 2 OU 


3- " 


304.0 


PRINT " ATTENTION AU 


4-0 


INPUT Z 




K BRRRIERES. " 


42 


Gosue 3200 




3050 


PRINT " " 


4-3 


G05U8 3300 




3060 


PRINT " N.2 MEHE JEU Hfll 


4-5 


GOSUE) 4000 




S LES" 


49 


PRINT RT ie,e;"fl" 




JO70 


PRINT " PflRRIERCS NE 




If Z-3 THEN GOTO 6S 




S RFFH 


55 


003UB 3400 




3080 


PRINT " OU UN MOMENT 


SO 


If Z=\ THEN GOTO 65 




ftUftNT 1 


61 


PRU5E 150 








63 


GOSUB 3500 




3090 


PRINT " " 


65 


REM SBBBfll JEU BBBBBl 




3100 


PRINT " " 


06 


LET 1=13 




3110 


PRINT " N.3 LES PRRRIERC 


67 


LET J =6 




S EXISTENT- 


7© 


IF 1=2 THEN GOTO 73 




3120 


PRINT " MRI3 N RPPRR 


71 


IF INK.EYS«"5" THEN GOTO 


500 


RISSENT PflS. " 


72 


IF IHKEY»s"8" THEN GOTO 


O00 


3130 


PRIJJT " " 


73 


IF INKEY$3"7" THEN GOTO 


700 


3140 


PRINT "VOTRE SCORE DEPEND D 


77 


IF INKEY»="6" THEN GOTO 


600 


U NOHBRI 


70 


LET C=C*1 




3150 


PRINT " " 


ao 


GOTO 70 




3160 


PRINT "DEPLRCEHENT OU CflRRC 


510 


LET C*C+1 




R L 


RIDE DES FLECHE5. (TOUCHES 


520 


IF U=4 THEN GOTO 70 




3 6 


7 ET 6) " 


530 


GOSUD 1000 




3190 


RETURN 


S3S 


LET JaJ-4 




3200 


REM RRZ T 


34-0 


GOSU3 900 




3210 


FOR R»l TO 9 


350 


IF X«»2 OR U<>8 THEN GOTO 7 


3220 


FOR B-l TO 3 








3230 


LET T(R,B) =0 


560 


GOTO 2000 




3240 


NEXT B 


61© 


LET CbC+1 




33S0 


NEXT A 


615 


IF Isle THEN GOTO 70 




32S0 


RETURN 


620 


IP TfI/2+l,d/4).l THEM 


GOTO 


3300 


REM TIRAGE OES BARRIERES 


70 






3310 


FOR A-4 TO 6 STEP 2 


630 


GOSUB 1000 




3320 


LET MnINT IRNDtS* +1 


OdO 


LET 1=1+4 




3330 


FOR 0-1 TO M 


650 


GOSUB 900 




3340 


LET N-INT (RNDf3) +1 


660 


GOTO 550 




3350 


LET T (A,N) =1 


710 


LET C"C*1 




3360 


Nexr B 


720 


ir X-2 THEN GOTO 73 




3370 


NEXT R 


730 


IF T(I/2-l,Jy4).l THEM 


SOTO 


3330 


RETURN 


70 






34.00 


REM AFFICMRGE IMRGE 


740 


GOSUB 1000 




2410 


TOR 1=4 TO B STEP 2 


730 


LET I-I-4 




3420 


FOR J"l TO 3 


760 


GOSUO 900 




343© 


IF T(I,J»-0 THEN GOTO 3400 
PRINT AT I»a,<0»3)tJ-li"" ta 


770 


GOTO S50 




344.0 


810 


LET C-C+l 


■N-7 






saa 


IF J = 12 THEN GOTO 70 


lV I 




NEXT J 


030 


G03U8 1000 


(V> n 




NEXT I 


640 


LET JoJ+4 r^. 


}. V r 


>-34B0 


RETURN 


osa 


GOSUB 900 y*~? 


pis^ \ 


3500 


REM EFFACEMENT DES DARRIERE 


MB 


GOTO 550 f yy' 








999 


REM Lsy 




3S10 


FOR I«0 TO 16 STEP 4 


■300 


primt «t K,L;" ' - r*vP-^ 




3S20 


PRINT RT I ,3; - 


910 


PRINT RT I ,J; "■" T — i 




3330 


NEXT I 


920 


RETURN Y*7K 




3340 


RETURN 


1000 


LET L=J Vy\^ 




4000 


REM RFPICHRCE DU CADRE 


1010 
1J)20 

.'3 00 


LET K = I V JT 

RETURN W 
REM BBBBBl GRGNE ■■■■■1 




L000 
4010 
4080 


CLS 


FOR 1=1 IO 19 


3010 


PRINTflT 3,2P, "GHCJMt . " 




4O30 


PRINT " ■ «• 


."■«Pi) 


PRINT RT 4,20; "SCORE: ";INT 
-INT fC3e» *1J 
PRINT RT 10,17;"HUTRC PART 


4040 

4060 
4-060 


NEXT I 


aoso 


PRINT AT 1,7; "— 
PRINT AT 2,7; "1 1" 
PRINT RT 3,7; "| 1" 


E 7" 






4070 


2040 


PRINT RT 11,20; "Ov-N" 






.TOSO 


INPUT R* 




4090 


RETURN 


SB69 


IF R*0"0" THEN GOTO 2070 


9QOO 


3RUC "COROOB" 


2061 


CLS 




3010 


RUN 



EPONGES 



Ce n'est pas la peche aux moules. mais aux eponges, 
et en pleine mer. Le jeu semble tres facile au debut 
mais. a chaque manche, la difficulty augmente. Atten- 
tion aux meduses qui rodent. 

3 ?£M F.WKTflH 1&63 
[0 PRWT^IO*- BMM0E9 

:-V0U8 LES «t f-EOLE's' 
■j9 fvun-wm iwez ..-0- ui -w... 
40 QETM 

'A .'FSC'O-THEHZOT 
SB rFIi*-"H"THEHW 

ra MT04SI 

■; .. Epi-jtWiES *•- PP1UT 

>S PRIMT"#V0U8 '..■■ ■- '- ENVnHIE t£ ICDU9E 

iwreiHT-*. pobbibue D' etomdes 

tig PRinr- RVBK7 :iF_ fi£VENI8 flu BfflEflU.BePECH CODHSE toulE 

129 PHl»r- POINT, CHftOUE EPOttOt RnFRMTe 26 I 

130 PRlr<T"«C€, -.grp-, K T.-j^P. vf>ij ^tP**T£Z f'f/JC WC 
140 PPIMT"PKJfPE PLOHGEE.Hftl'- EH HH0E/W1 PLUS tflTE. 
136 PP.IHI-... '■/: f*P£TEP L« PECHE. 

tee psikt raiHT-«row '.a wits.tbpez,! ...-'i'. 

I?B OETM iPBf-"S"TMEMi99 

158 U0TCIJ79 

19e PfiIMT-3 EXEMPU 

29B won' O00O> 000 00 00* 00 • 000 

zie ppjirr- fooo q o oo ooo* o oo oo ooo o o 

Ji3 PRIllT PttlHT' • 

238 rp; M f PRIHT ' , .''J!- 1 - • 

24fl PRINT*)! iTMj'.p-i a n WTEflU - 

290 ppnir ppjht ppii*t- cctmtis? pour rwtf, i«prz ... j j-... 



2«Q ijtrct ■lFCt*"JTHEM288 

■. ■ . 

Kfl V-«8?e -SI -36874 32-36e?3 
2?0 B-40IH-1 PT3KEV, 13 

-';.'!.":;■' 

tie FORI : rOIW Et 1,248-1 

323 G0SUE4ed 
338 P0KE"e2'«.S7 
34fl HEzri POKE8I.0 
■/:■■: FijPj-iTOIC 



•EVITE2 LI 



0000 000 00 o* 00 



3?0 P0KE7792*R.43 

368 MExrj 

399 rjorrj42U 

400 R-IMT l :)>ltO(l/44l7/ 
413 RETURN 

428 PWE8152.42 PQKE8174,43 
4W r-ri iFBOTHEiin-i 
440 OETfH 

!,22SiF0RI»lTO3 nEXil 
4C8 lFfli--fl-THenOV-e:iK— 1 

478 IffiI--D-rHENDV-0 IM»1 
430 IFfil-"H ,, TMEHDX*e-HV"-22 
499 lFftl--Z-T«liiir/-8 DV-22 

wa z-:ei5Z*x+v*i»(+iiv> 
'jig [PPeEK<Z>>97THSN 7"0 




COMMODORE 

328 IFPfCKt2) a 43THEH1'fl*1 P0KE83,24« FOBC ITOW 

330 IFf1>-R WILPEf.l '.':■ 

■ ,. T IFJK8 «(DPtW(Z)M5THEHFRINT"arj»l*FHUT M ii.;..':- 1 ...... 10798 

359 PQKE8I32*X'V.32 -PW.EZ.42 

MO X»X"Ij>: v--v.;,v 

370 |FV>I0e 0fiy<-5WTHCW , fllMT""l«»ltJE HE 81118 EOI 

W9 P"INT<M« ■ : < ■■■■ 91 

598 PPIiiT"ns",P."«-.SPC<^/. ■! . ." ff HO. ii 

689 FOftl-iTOB NEXT 

eie F-f-nir-w 

■ B OOTO440 

630 pi ■ i r •(■ i (INI "."H004I BWVO J. flvEZ . . .oimmImi- 'POINTS. 

■■..I ■ . . . i. i .i -i 

N II-! 

656 PGKEV.13 
560 FORI ■ 

■..■....../... , ■ I : ; 

689 FORJ-UOK' ' 

690 FtJfr£iii37S 59 P«El»J,238 
P0KES3.8 708 FORJ-ITO10 HE.XTJ 

71f HExri PL*ES3.8 

720 B-B-188 P-9 M-0 X-0 KK-*) V-8 UV-0 

■ ■ 

'!"■• 
•PP.P 

:■.■■- : 

■ -■■.■>■-;:■ ■.;:..■.;, 

.■KV.e 

■ 

■ ■ 

■ ■ 

&93 PRIM. « T*#>tZ '0' OU "... 

sis oi rsj 

■ . ■ 

■■-■... ; 

■ «e oorosia ■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52x8,00 416 FRANCS 

NOM: MATERIEL UTILISE:: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: D CHEQUE I CCP 



CODIFICATION AUTOMATIQUE 
DE FORMES 



II est parfois long et (astidieux de se creer une Table de 
Formes lorsque celles-ci sont nombreuses et qu'il faut 
les coder a la main. Ce programme remedie a de nom- 
breux inconvenients : la machine arrange et code elle- 
meme lesvecteurs.Ainsi. parexemple. onsaitque I'on 
ne peut effectuer trois montees successives sans que 
cela soit interprets par une "fin de forme" : la, pas de 
probleme, le programme arrangera les vecteurs afin 
que 'tela passe". 

On commence par definir une grille (5x5, 9x7 ou 
autre) et une echelle (ce qui permet de mieux voir son 
trace). Par exemple, une grille de 7x7 et une echelle 
de 10 tracent sur I'ecran un quadrillage de 7 carreaux 
de 10x10 sur 7. Le trace de laformes'effectueen par- 
tant du centre de la grille. (Pour ce faire, le programme 
rajoute une rangee de carreaux sur les cotes de la 




pS>?\£* 






grille qui en auraientun nombrepair.) Les touches 1.2. 
3, 4 permettent respectivement de monter.descendre. 
alter a gauche et a droite sans tracer de PLOT. De 
meme pour les touches A, S, D. F mais en tracant un 
PLOT. 

Dans tous les cas, un point trace au centre dun carreau 
indique I'endroit ou Ton arrive et done dbii Ion repart. 
La touche "a" indique la fin de forme. 
A ce stade, le programme efface I'ecran et retrace la 
forme, a I'echelle 1 cette fois, et attend qu'une touche 
du clavier soit enfoncee. Ceci fait. I'ecran affiche le 
code decimal et, en mode inverse, le code HEXA de la 
forme. La encore, le programme attend qu'une touche 
soit frappee. 

Marc MACCARI 



13 HONE : VTAB 4 



18 HTAB M: PRINT '• 

CflftI MAftC •' 

19 HTAB H: PRINT -t 



CODIFICATltl 



AUTEURi HAG 



20 HTftB I- 



PRINT ' 



SO VTflB 13: KTAB 14: PRINT "1 .. 
- EXECUTION"! VTAB 18: HTAB 
Mi PRINT *2 ... FIN': VTAB 
23i HTAB 25- PRINT -?j-[; BET 
A*: PRINT M 

50 IFA«. -2- THCN END 

bO IP 0* < > •!• THEN 30 

2000 HOME i POKE 232.0: POKE 233 
,120: POKE 32768,1: POKE 327 
69,0: POKE 32770,4: POKE 327 
71, Oil * 32772:11 - 

2020 PRINT -CE PROGRATTS PERHETD 
E CREER ET DE": PRINT "CODIF 
IER UNE FQRft HGR. ": PRINT ■ 
CETTE FOKHE EST TRACES fi L'l 
NTERIEUR *J PRINT -3'UNE 6RI 
LLE X*Y A UNE ECHELLE E'j PRINT 
-LE PROGRAMME DEHARRE AU CEN 
TRE DE LA": PRINT 'GRILLE. ■ 



2030 PRINT *POUR TRACER FflIRE i" 

i PRINT *1 POUR NONTER SA 

NS 'Pl.OT*"t PRINT "2 POUR 

DESCENDRE SANS 'PLOT*": PRINT 

■3 POUR ALLER A GAUCHE Sft 

NS 'PLOT'": PRINT *4 POUR 

ALLER A DROITE SANS 'PLOT" " 

I PRINT -A POUR WINTER AV 

EC "PLOT** 

2040 PRINT "S POUR DESCENDRE 

AVEC "PLOT": PRINT "0 PO 

UR ALLER A GAUCHE AVEC 'PLOT 
"i PRINT *F POUR ALLER A 

DfiOITE AVEC 'PLOT'-: PRINT 
-i POUR TERMINER LA FORME 

2030 PRINT : PRINT 1 PRINT 

>"i: 6ET «• 

2060 HGR i HC0L0R= 7i VTAB 22: HTAB 

1: INPUT -GRILLE II, Yi :";B, 

C: INPUT -ECHELLE !'!A 

2065 IF B - INT (B / 2) • 2 = 
THEN 8 = B ' I 

2066 IF C - INT (C / 21 • 2 = 
THEN C = C ' I 

2070 X - 139 - (A • B / 2):Y = 79 

- (A • C / 2) 
2105 HPLOT 139,79 
2110 FOR = I TO (A * Bl • X STEP 

A: HPLOT 0,¥ TO 0, (A • C) * 

Y: NEXT 
2120 FOR - Y TO (A » C> * Y STEP 

ft: HPLOT X,0 TO I * (A * B) , 

0: NEXT 
2130 L-X*(fl»B/ 2):M - Y ♦ 

(A • B / 21: HOME : VTAB 21 
2140 FOR « I TO 3 
2150 GET HS 



2160 
2165 
2168 
2170 



THEN 2200 

THEN 2250 

THEN 2100 

THEN 2350 

THEN 2400 

THEN 2450 

THEN 2500 

THEN 2550 

THEN 2800 
: GOTO 2150 
,N: HPLOT L,rl - A:H - 
(0) • -000": GOTO 27 



2250 HPLOT I 



2300 HPLOT L 



2350 HPLOT L.Hi I 

L » AiH»<Q) ■ -OOl'i GOTO 27 

2400 GOSUB 4000 

2410 HPLOT L,M - A:Hfi01 » "100" 

:H ■ H - Ai GOTO 2700 
2430 GOSUB 4000 
2460 HPLOT L,M * A.H - K * A iHt( 

01 « -HO'! GOTO 2700 
2500 GOSUB 4000 
2510 HPLOT L - A,H:L - L - AiH*< 

01 ■ -lll-i SOTQ 2700 
2550 GOSUB 4000 
2560 HPLOT L » A,M:L « L » A:H«< 

01 - -101": GOTO 2700 
2700 NEXT 
2710 IF MID - -000- AND H»(21 = 

■000" AND H«(3> = -000" THEN 

2750 



2720 IF Hi (21 • -000* AND HSI3) - 

"000* THEN 2760 
2730 IF H*<3) - -000- THEN 2770 
2740 IF VOL <H*<3)> > » tOO THEN 

2780 
2743 V* • H*(3) ♦ H*(2) ♦ H*(IUV 

* = HID* (V*,2I: GOSUB 4100 

2746 GOTO 2140 

2750 FOR U - \ TO 3:V* - '010110 
00": GOSUB 4100 

2751 NEXT II 

2752 GOTO 2140 

2760 V* - -OlOll* * H*(lli GOSUB 
4100 

2761 FOR M • I TO 2:V* = *010J10 
00": GOSUB 41O0 

2762 NEXT U 

2763 GOTO 2140 

2770 V* •> -00" * H*(21 » H*<1): GOSUE 
4100 

2771 V* - -010I1000-: GOSUB 4100 

2772 GOTO 2140 

27B0 V* - "00* * H*(2) • HK1H GOSUE 

4100 
27BI V* - -OlOll- ♦ Ht!3>: GOSUB 

4100 



2B10 FOR U ■ TO 3:Vt - *000' • 

VI: NEXT N 
2B20 V* • HID* (V*,2): GOSUB 410 


2830 V« - -00000000-: GOSUB 4100 
2B40 HGR I SCALE- 1: HCOLOR- 7: BR 

1 fit I39,79i GET R* 
2B50 HOME : TEXT 



2920 
2930 



X - IjY - 1>A ■ OiA» ■ -- 
FOR ■ 32772 TO I 
ft - PEEK I0HB1 - INT (A / 
16):B2 • S - 14 , bi 

IF Bl > 9 THEN At . CHR* ( 
53 ♦ Bl): GOTO 2900 
ft* • STRt (Bl) 
IF B2 > 9 THEN AI . A* . CHftl 
IB2 • 531i GOTO 2920 
AI ■ AI . STftl (82) 
VTAB X: HTAB Y. PRINT A: VTAB 
X: HTAB Y • 4l INVERSE I PRINT 
AI: NORMAL 
t - X * li IF j . j; THEN I - 



2933 IF A - THEN 2950 

2940 NEXT 

2950 VTAB 23: GET R* 

2960 HOKE I PRINT '1 AUTRE FO 

PJTE-: PRINT 1 PRINT '2 SO 

RT1E- 
2970 PRINt : PRINT : PRINT i PRINT 

)-.. get R( 

2990 IF Rl - M- THEN 2000 
2995 IF R* < > "2- THEN 2960 
3000 END 
4000 FOR O»L-A/2T0L*A/ 

2: HPLOT 0,M - A / 2 TO 0,M • 

A / 2i NEXT Oi RETURN 
4100 FOR P - TO 7iV - VAL ( H10I 

(VI, IB - PI, 1)) • 2 - P ♦ Vi 
NEXT P 
4110 POKE I.VlI ■ I . till - 11 * 

liV • Oi RETURN 



LABYRINTHE VIVANT 



Se deplacer dans un labyrinthe n'est deja pas chose 
aisee, mais quand, en plus, ce labyrinthe est vivant! 
Vous pouvez jouer avec les fleches du clavier ou avec 
une manette de jeu. Choisissez une des 3 sorties et 
pas n'importe laquelle, le nombre de points acquis en 
depend. (Jusqu'a 4 joueurs, 3 niveaux de difficulte.) 

Gerald ROUGEVIN 



tJVV» 



-fW 



PE'" 



■ 



IS REM COPIE BUTflPISEE 

'-^ •*0i-..: i i iA«o 

1'. HEME 

-;-3 print "UOULEZ-UGUS L;S REGLEg 
■;'' =t IF fj ■ -0- THEN C 
ee REM PECLEJ 

Jfi -l-^y-: REM [HIT1AL1 )ftl I 
?0 KOItE 

30 INPiJT -HONBRE DE JOUEUPS' 1-4 ) 
DIM = ■■ I. J > 

■ - -BlfTflCULTE " 
3-; PRWtT - -- | Ft-ciLE- 

97 PRMr ■ -- : KOYEH" 

38 PPIMT " — ■■■J/DtFFICILE- 

39 INPUT "UOTPE CHOIX " .- D I 

100 FOP Z - l TO j PRINT "HOfl :■ 
-■'"■ " IHPU1 N* Z 
119 FOP 2 - 1 TO I 
129 FOP U - 1 TO J 
139 GOSUB 4«ge PEH JEU 
■ '& 399-3 »EH GAI I 
UEUP u 

r -i T£ = TE - 19 
l-:9 B08U1 C990 FOP M = 1 TO 10999 

NEXT n 
179 MEXt Z FOP rl » l TO 19899 

HE.Y.T rl 
193 CLEAR GOTO 30 
199 PEI1 FIH PPDGFCMME PPIHC1PAL 
299 PEH 

1999 REH PRESENTCTION 
1894 TEXT 
1095 HOKE 
1919 P » 19 
1929 A = p 
19T9 B - PD - - i 
1933 n * 13 
1949 DIM KC 10) 
1839 FOP JJ * 9 TO 10 
1035 CALL 49932 P - PEEK C 233 ) 
IF P < > fHEH RETURN 



1968 P( JJ> - INT <M * PHD <l>> 

1978 NEXT JJ 

1080 D- - D K = 1 L ■= P. IF D > e 

THEN 1199 

1899 K = P l = t 

1109 FOP JJ = K TO L STEP B 

1103 CALL 49932 IF PEEK < 253 '/ 

< > 8 THEM PETUPH 

It 18 HH - A . J J uu > l. GOSUB 1229 

1129 HH - fl - JJ GOSUE 1229 

1139 HH - fliUU .|t JJ. GOSUB 1229 

1149 UU • B - JJ GOSUB 1229 

1138 HH » A * JJ tJU . B * JJ GOSUB 



ll«l 



UU 






1163 i'.ALL 409S2 IF PEE- 

■ S THEN RETURN 
1179 iiu * E * JJ GOSUB 1228 
1189 HH - ft » ij UU . B - JJ <;.- ;., t 

1199 WEXT JJ 

1133 "ThE Zl PRIHT -L c B U I U 

ren pou« jouep i" 

1250 GOTO 103S 

1229 COLOR " R<0) PLOT HH.UU 

1239 IF JJ - 1 THEM PETUPH 

1240 UU • [NT ■ I ■ ■ ■ .. TT * JJ 
- I 

1239 fo' " ■ : ro uu 

1260 IF HH ' . « fHEtl 12S0 

127E •'■ • UU H2 • HH ♦ N C ■ 1 . ■ 

■ HH - N GO '-: HE ■ M 

: : ; .o :f uu i r^:-, ■ 

■ HH ■■ . - ., .. 

■ UU - ., . 

■ ;- "* m A THfiN 1320 

1310 HJJ ■ hh • n :...■■■ ro i '■'< 

1328 H2 - HH - H COStlB 1376 

1313 HZ * HH IF UU > ■ B THEH 1334 

1348 U2 - UU . M GOSUB 1370 .. 

133-i U2 - UU - H GOSUB 1374 

1360 "EXT H PETUPH 

1373 COLOR - R<H>i PLOT H2.U2 
RETURN 

" PIN DE LA PRESENTATION 




2990 REM PE JUES 
2910 HOKE 

' ■ PRIHT "».«» LBBYRINTM6 UIUAN 
I « » 

■ ''■' ,r PPIHT PRINT 

2049 PRIHT -UQU8 DEUEZ EHTRER BAN 
ftJBVIV ET en 30RTIR P«f Lf 30RTII I 
PE CHOIX - 

295C PP1NI -II v h fin EFFEI 3 SOT:-" :, 

MS ELLES H'OHT PAS LE HEME N 

.,:■. 

2060 PPtHT -U0U8 

P^PftP CELLE QUI OFFPE LE PLUS n 

■ ■ : ATTENTION! IDE : 

■■■■, 

TIP QUE FhO" 

2030 PPDIT "(.'UNE DES SORTIES El 
S BUTE? C0HTR6 un ti-JP OU i I 

■':rE2- 
2998 PRINT "CE PROGRESSER. LE Lfl 
AHGEPA DE FORHi 

RHEROHT .- 
2100 PRINT 
TEKPS Out DIH1HUE ft CHftOUE I ft] 



2119 


PRINT 


BOHHE CHANCE 


. 
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PRINT 
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PRIHT 


tSHTBR POUP JOUEP •" 
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GET PI 


PETijPn 
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REM FI 


. 
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REH 
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REH [N 


TIftLISATIOH 
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Cl - 29 


»•« • Cl >C3 






reup 










3028 


TE - 238 REH TEhPS 






3938 


I - 3 REM 1 


TOUPS 




3948 


XI ■ 8' 


1 ■ 4 RETURN 


REH 


DEPART 



3050 El * 4 E2 = INT ( PHD ■ 1 ' 

* 10' REH EHTPEE 

3060 SI ■ INT ' PHD (U i I!) • B 
« 4 S3 - 39 S4 > INT t PhD i 1 
I 13) * 10 SS ■ INT < RND < I ) 

* 10> * 29 S6 ■ 38' REM SOPTIEJ 
3070 RETURN 

3988 REM FIH INI T :*L1 JATION 

3998 REM 

4000 REM JEU 

4910 KOHE Gfl P". ^ SB 

4920 Hr»£ 10 yTftB 10 PRINT Hi U JO 

UE- UTftB 7 K7-B 3 PRINT "LABUI 



* C3 
4050 X - :<1 V - v: :::: = :; vy - V 
4060 fop U » 4 TO 3S 
4065 PP HIT CHOI , 7 . 
4970 FOP U - 4 TO l'l 
4830 T = INT ■ PHD i l > t 100- 
4098 IF T < F\ THEM COLOR » 

PLOT U,y f. . pv - j .,.-, ,] | 
4100 COLOR ■ I PLOT U " 
4110 IF P': ' 56 - DI THEN P'. - ?- 
4113 HEXT u NEXI U 
4120 COLOR . 3 
4130 HUN 4 ?• AT 4 HLIN 4 

ULIH i.VZ fit 35 ULIN 4.3fl AT • 

4170 COLOP » 4 PL.5T 

- PLOT SI.S2 PLOT | : 

^6 P1.0T El E 

:■:. | . 






re 



n ,r 



■■■ I ■ : . 

12 S3 Ul il 

I PRIHT 

4299 HTAI L II I VI 
U ROUG 

4210 CALt 489S2 P - peek ,233. 
4213 H ■ PEEI 

' ■■' i ! ( a rHi h 4J29 

4230 IF i .l. 

. I Of 

1240 1 I : - .,!■ HTAB i 

IF r log THEM UTAI i HTAI I 
THEN 
"TUB 2 PRINT " - 
423a FOR H ■ 1 Tl . 
4253 Hi - Fur ■ : ■ > . 

PHD < 1 • I 24 * 5 
4260 IP Hi | 42! 

4270 IF ■ ..,, g tur,, 

I ■ 
■■ 
■ ■ hi HI .■ Hi ■ 

CHR1 ' 7 ■ 
4285 C0<2( - CO' 2i - 3'<C0(3> " CO 

■■■ 1 > - C0(1) - 15 
4290 UTAB Z HTAB 10 PR I HI ' 
,,. i - . ..... 

4300 IF T I THLH RETURN 
4310 GOTO 4210 

4320 IF R » 240 THEN VV • Y - 1 

4330 IF R • 241 THCM YV - Y * I 
4340 IF R En . 

Suite page 15 



GRAND PROJET 



Vous avez r^pondu nombreux a notre appel, notre pre- 
mier grand projet est bien parti ! 
Nous avons done tranchi la premiere etape, le jeu de 
Dames sur Tl 99/4A comporte maintenant, en plus du 
listing de depart. I'affichage du titre du jeu, la regie du 
jeu. I'affichage d'un damier repere et les pions sont en 
placs 

Deux versions, celle de Bernard DUFAUD et celle de 
Christ ian RIVE on teteretenues, vous pouvez vous gref- 
fer sur 1'une ou I'autre pour la suite du projet. 

Nousallons maintenant passer a la deuxieme etape : a 
partir de 1'Option 1 du menu, apres I'affichage du 
damier et des pions, une partie va s'engagerentre deux 
joueurs. L'ordinateur doit done : 

- enregistrer le nom des deux joueurs 

- demander qui commence ou tirerau sort poursavoir 
qui commence 

- fairejouer les 2 joueurs a tour de role, deplacementet 
prise des pions 

- controler le respect des regies du jeu. 

Nous arretons cette deuxieme etape avant la transfor 
mation des pions en dames. Au mois prochain... 
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CLIGNOTANT "PUISSANCE 4" 

Alain MICHELET a modilid le programmQ paru dans HEBDOGICIEL 
N"1 pour T! 99/ 4A pour faifeclignotet labouloal'afflchaQedescoor- 
donnees el ainsi visualiser le reaullat de son jeu avant de le conflr- 
mer 

Ajouter : 785 GOSU8 2680 

786 IF ERROR >0 THEN 560 
805 IF (K <> 78)*(K <> 79) THEN 790 
3100 CAL.LCHAR(YPEG + 1-W.XPEG.96) 
3110 CALL CHAR (YPEG + 1 - W. XPEG. 144 + Z) 
3120 GOTO 790 

3200 CALL CHAR (YPEG + 1 - W. XPEG. 96) 
3210 S(KEY(1)-64.KEY<2)-48. W) - 
3220 GOTO 560 

Supprimor les llgnes 850,860.910.2690, 2700. 2710 et 2720 

Modifier 800 IF STATUS -0 THEN 3100 
840 IF K- 78 THEN 3200 
880 IF WIN >0 THEN 920 
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PRINT 

HTAB 
4J90 IF 8CRH' 

• X YY • Y< COTO 4249 
4190 COLOR - 0' PLOT X.Y'X • XX V 

- YY' COLOR - 4. PLOT X.Y 
4408 IF <X - SI AND Y ■ S2 ) OR (X 

- 83 AND Y • 34) OR (X • 93 AND V 

- S<5) THEM RETURN 
4410 COTO 4£10 

4420 IF SCRHC XX. YY) - 3 TMEH XX 

■ XYY • Y' COTO 4210 
4430 [F XX • 6 THEN COLOR ■ 3' 

PLOT 4.E2 
4440 GOTO 4390 
4480 PEH FtH OU JEU 
4490 PCM 

3000 REM CALCUL SCORE 
3D10 IF T < I TMEH S(Z.U) ■ - 2000 

RETURN 
3020 IF X - 81 AND Y - 82 THEN KM 

• COL 1 ) 

3030 IF X • 93 AND Y - S4 THEN Si Z.l 

• C0( 2) 

3040 IF X - 83 AND Y • 86 THEN 1(2. 

- C0(3> 
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SI80 REM FtH DU TABLEAU 
5190 REH 

10000 REM ROUMHE ASSENILEUR 
10018 POKE 40932.32 POKE 40*33.67 

POKE 40934.240 POKE 40933-133 

POKE 40933.233 POKE 40937. J6 
10020 RETURN 
10030 REH Fill OE LA ROUTINE Flu U I 
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"Encore des extra-terrestres". 

altez-vous diro ! C'est plutot une 
armee de (ourmis qui se pre- 
serve a vos yeux (emerveilles?) 
apres que vous ayez insere (non 
sans mal!) la cartouche de jeu. 
Inlassablement. ces tourmis 
detruisent ceuf par ceuf. oh * par- 
don : brique par brique la prison 
qui detient trois des leurs Bons 
ou mechants? Nul ne le sail, en 
tout cas non seulement lis se 
defendent mais en plus lis atta- 
quent et essayent de detruire 
voire base. Un bruit caracteristi- 
que annonce le passage d'une 
soucoupe volante qui fait diver- 
sion mais qui peut vous rappor- 
ter un maximum de points. La 
premiere manche se termine 
sans trop de casse, pour la 
deuxieme, un extra-terrestre 
attaque a la vitesse grand "V" et 
ce n'est vraiment pas evident de 
le descendre. La troisieme et 'a 
quatneme marches font appa- 
raitre la puce de I'espace : en 
mouvements desordonnes. eile 
se deplace tres vite et fait bar- 
rage a vos tirsde lasers, et elle ne 
consent a mourir que si on la 
louche sur son talon d'Achile. a 
vous de trouver. Pour la cin- 
quieme manche. c'est un batail- 
lon entier d'extra-terrestres qui 



foncesurvous El ainside suite, 
les manches delilent, faisant 

varier le graphisme et les sons, 
jusqu a la ptuie de meteorites de 
la neuvieme manche pour 
laquelle il vous faudra d'abord 
vous entrainer longtemps 
d'atteindre des scores de cham- 
pion. Le graphisme. la couleuret 
les sons sont tres travailles dans 
cet excellent jeu qui complete la 
gamme deja importante de logi- 
crelspourVIC 20. 




LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 
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programmes en Ti basic pour "Ti 99/i» A" 

INITIATION AU 
LANGAGE ASSEMBLEUR du 
INSTRUMENTS 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originauxetpassion- 
nantsaveccouleurs,graphismesetsons:Jeuxde mouvement (Bowling. Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
HanoT,Architecte. etc.). Jeuxdesociete (421, G oldie. Cochon, Mastermyster, Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance dulangageTi-8asic: AND et 
OR. Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe. 
Roulette, Casse-tete, Puzzle. Echecs. Tachitoscope, Kim. Paires, etc... De ia musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance. Regions de France, entramement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu. il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de voire ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral. Drapeaux, Poker, Harmonium, 
Calculett e scien t if ique.Ardoisemagique etc.), des utilitaires pour creer des lu tins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur ; Acces a toutes les possibilites graphiques. y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse d'execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables.a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195.00 francs 
francais. Disponible en franpais et en anglais. 
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DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPON1BLES SUR CASSETTES ET DISOUETTES. SHIFT EDITIONS, 27 rue du Gal Foy. 75008 PARIS 



Nom/P,5„o™ 1 I I I I I I I I I I I 

U» I I I I I I I I 

I I I I I I I I I II I I I cod. Pom I I i i i I 

v.n. I I I I I I I I I I I I I I I I I 



TOME 1 □ 155 F 
TOME 2 D 155 F 



TOME 3 □ I55F 

ASSEMBLEUR D 195 F 



CONTRE REMBOURSEMENT FRANCE I 20 F D 

CONTRE REMBOURSEMENT ETRANGER + 30 F □ 
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